diff carboseqUnsplit.R @ 5:3e7978af2ba2 draft

"planemo upload for repository https://forgemia.inra.fr/carboseq/record-projet-carboseq/-/tree/5f761ea7dab0a6f8c978cbbe4946e16edc6d032e/toos/CarboSeqSimulator commit 5f761ea7dab0a6f8c978cbbe4946e16edc6d032e-dirty"
author siwaa
date Wed, 28 Aug 2024 14:53:30 +0000
parents
children 5fdc9d0c223b
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/carboseqUnsplit.R	Wed Aug 28 14:53:30 2024 +0000
@@ -0,0 +1,13 @@
+
+resU <- list(SOC=data.frame(), forcings=data.frame())
+
+for (i in list.files('./inputs')) {
+    load(file.path('.', 'inputs',i))
+    resU$SOC <- rbind(resU$SOC, res$SOC);
+    resU$forcings <- rbind(resU$forcings, res$forcings)
+    rm(res)
+    }
+
+res <-resU
+
+save(res, file = 'csopraRes.Rdata')
\ No newline at end of file