Mercurial > repos > siwaa > carboseq_s

comparison carboseqUnsplit.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 3e7978af2ba2
children 2af4b1e46d90
comparison
equal deleted inserted replaced
7:366449cab681 8:5fdc9d0c223b
1 1
2 resU <- list(SOC=data.frame(), forcings=data.frame()) 2 resU <- data.frame()
3
4 listFiles <- list.files('./inputs')
5
6 # restoring the order first
7
8 orderVec <- c()
3 9
4 for (i in list.files('./inputs')) { 10 for (i in list.files('./inputs')) {
5 load(file.path('.', 'inputs',i)) 11 load(file.path('.', 'inputs',i))
6 resU$SOC <- rbind(resU$SOC, res$SOC); 12 orderVec <- c(orderVec, res$ID[1]);
7 resU$forcings <- rbind(resU$forcings, res$forcings) 13 rm(res)
14 }
15
16 listFilesReOrder <- listFiles[order(orderVec)]
17
18 for (i in listFilesReOrder) {
19 load(file.path('.', 'inputs',i))
20 resU<- rbind(resU, res);
8 rm(res) 21 rm(res)
9 } 22 }
10 23
11 res <-resU 24 res <-resU
12 25
13 save(res, file = 'csopraRes.Rdata') 26 save(res, file = 'csopraRes.Rdata')