hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

BUG for one core machines

Browse Source
This commit is contained in:
Roland Hollós 2022-11-08 09:23:19 +01:00
parent 6122f48c8c
commit aac846d5af
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
RBBGCMuso/R/calibrateMuso.R
View File

@ -113,12 +113,16 @@ calibrateMuso <- function(measuredData, parameters =read.csv("parameters.csv", s
# \____\___/|_| |_| |_|_.__/|_|_| |_|\___| # \____\___/|_| |_| |_|_.__/|_|_| |_|\___|
resultFiles <- list.files(pattern="preservedCalib.*csv$",recursive=TRUE) resultFiles <- list.files(pattern="preservedCalib.*csv$",recursive=TRUE)
res0 <- read.csv(grep("thread_1/",resultFiles, value=TRUE),stringsAsFactors=FALSE) res0 <- read.csv(grep("thread_1/",resultFiles, value=TRUE),stringsAsFactors=FALSE)
resultFilesSans0 <- grep("thread_1/", resultFiles, value=TRUE, invert=TRUE) if(numCores==1){
# results <- do.call(rbind,lapply(resultFilesSans0, function(f){read.csv(f, stringsAsFactors=FALSE)})) result <- res0
resultsSans0 <- lapply(resultFilesSans0, function(f){read.csv(f, stringsAsFactors=FALSE, header=FALSE)}) } else {
resultsSans0 <- do.call(rbind,resultsSans0) resultFilesSans0 <- grep("thread_1/", resultFiles, value=TRUE, invert=TRUE)
colnames(resultsSans0) <- colnames(res0) # results <- do.call(rbind,lapply(resultFilesSans0, function(f){read.csv(f, stringsAsFactors=FALSE)}))
results <- (rbind(res0,resultsSans0)) resultsSans0 <- lapply(resultFilesSans0, function(f){read.csv(f, stringsAsFactors=FALSE, header=FALSE)})
resultsSans0 <- do.call(rbind,resultsSans0)
colnames(resultsSans0) <- colnames(res0)
results <- (rbind(res0,resultsSans0))
}
switch(method, switch(method,
"GLUE"={ "GLUE"={