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

indexing bug fix

Browse Source
This commit is contained in:
Hollos Roland 2021-06-23 14:45:26 +02:00
parent dc51de6f15
commit 97c1db50be
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RBBGCMuso/R/multiSite.R
View File

@ -231,7 +231,7 @@ multiSiteCalib <- function(measurements,
stop("No simulation suitable for constraints\n Please see treeplot.png for explanation") stop("No simulation suitable for constraints\n Please see treeplot.png for explanation")
} }
bestCase <- which.max(results[,ncol(results)-2]) bestCase <- which.max(results[,ncol(results)-2])
parameters <- results[bestCase,1:(ncol(results)-3)] # the last two column is the (log) likelihood and the rmse parameters <- results[bestCase,1:(ncol(results)-4)] # the last two column is the (log) likelihood and the rmse
#TODO: Have to put that before multiSiteThread, we should not have to calculate it at every iterations #TODO: Have to put that before multiSiteThread, we should not have to calculate it at every iterations
firstDir <- list.dirs("tmp/thread_1",full.names=TRUE,recursive =FALSE)[1] firstDir <- list.dirs("tmp/thread_1",full.names=TRUE,recursive =FALSE)[1]