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

calibration bugfix

Browse Source
This commit is contained in:
Roland Hollós 2023-06-19 10:47:37 +02:00
parent b9e829951e
commit 47b9a0eb09
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
RBBGCMuso/R/calibrateMuso.R
View File

@ -244,9 +244,9 @@ musoSingleThread <- function(measuredData, parameters = NULL, startDate = NULL,
print("optiMuso is randomizing the epc parameters now...",quote = FALSE) print("optiMuso is randomizing the epc parameters now...",quote = FALSE)
if(iterations < 3000){ if(iterations < 3000){
randVals <- musoRand(parameters = parameters,constrains = NULL, iterations = 3000,sourceFile=sourceFile) randVals <- musoRand(parameters = parameters,constrains = NULL, iterations = 3000,sourceFile=sourceFile)
randVals[[2]]<- randVals[[2]][sample(1:3000,iterations),] randVals[[2]]<- randVals[[2]][sample(1:3000,iterations),] # TODO: last not random
} else { } else {
randVals <- musoRand(parameters = parameters,constrains = NULL, iterations = iterations) randVals <- musoRand(parameters = parameters,constrains = NULL, iterations = iterations,sourceFile=sourceFile)
} }
origEpc <- readValuesFromFile(settings$epc[2],randVals[[1]]) origEpc <- readValuesFromFile(settings$epc[2],randVals[[1]])