Mercurial > repos > siwaa > carboseq_s

comparison run.r @ 8:5fdc9d0c223b draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload for repository https://forgemia.inra.fr/carboseq/record-projet-carboseq/-/tree/43e7f4ebfe4e552bf684936df0a050cb6def5aab/toos/CarboSeqSimulator commit 43e7f4ebfe4e552bf684936df0a050cb6def5aab-dirty"
author siwaa
date Fri, 30 Aug 2024 13:29:48 +0000
parents 366449cab681
children de71663fbce4
comparison
equal deleted inserted replaced
7:366449cab681 8:5fdc9d0c223b
116 116
117 modeltoolbox::loadCSVs(maxCores = NBCores, cinputCalculator = "cinest", 117 modeltoolbox::loadCSVs(maxCores = NBCores, cinputCalculator = "cinest",
118 preprocessorInputs = ppi) 118 preprocessorInputs = ppi)
119 print("between load an sim") 119 print("between load an sim")
120 modeltoolbox::runSims(maxCores = NBCores) 120 modeltoolbox::runSims(maxCores = NBCores)
121 # res <- modeltoolbox::getYearlySOCResults() 121 res <- modeltoolbox::getYearlySOCResults()
122 res <- modeltoolbox::readSocForcingsResults() 122 # res <- modeltoolbox::readSocForcingsResults()
123 fileName <- "resRun.RData" 123 fileName <- "resRun.RData"
124 filePath <- file.path(srcOut, fileName) 124 filePath <- file.path(srcOut, fileName)
125 save(res, file = filePath) 125 save(res, file = filePath)
126 } 126 }
127 } 127 }
146 # ppi$srcDirOutput <- NULL # Hack 146 # ppi$srcDirOutput <- NULL # Hack
147 147
148 modeltoolbox::loadCSVs(maxCores = NBCores, cinputCalculator = "cinest", 148 modeltoolbox::loadCSVs(maxCores = NBCores, cinputCalculator = "cinest",
149 preprocessorInputs = ppi) 149 preprocessorInputs = ppi)
150 modeltoolbox::runSims(maxCores = NBCores) 150 modeltoolbox::runSims(maxCores = NBCores)
151 # res <- modeltoolbox::getYearlySOCResults() 151 res <- modeltoolbox::getYearlySOCResults()
152 res <- modeltoolbox::readSocForcingsResults() 152 # res <- modeltoolbox::readSocForcingsResults()
153 fileName <- "resRun.RData" 153 fileName <- "resRun.RData"
154 filePath <- file.path(srcOut, fileName) 154 filePath <- file.path(srcOut, fileName)
155 save(res, file = filePath) 155 save(res, file = filePath)
156 } 156 }
157 } 157 }