From 47b9a0eb09cd658c00759f7ee868749a88257d24 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roland=20Holl=C3=B3s?= Date: Mon, 19 Jun 2023 10:47:37 +0200 Subject: [PATCH] calibration bugfix --- RBBGCMuso/R/calibrateMuso.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/RBBGCMuso/R/calibrateMuso.R b/RBBGCMuso/R/calibrateMuso.R index 81fe884..062bbd6 100644 --- a/RBBGCMuso/R/calibrateMuso.R +++ b/RBBGCMuso/R/calibrateMuso.R @@ -244,9 +244,9 @@ musoSingleThread <- function(measuredData, parameters = NULL, startDate = NULL, print("optiMuso is randomizing the epc parameters now...",quote = FALSE) if(iterations < 3000){ 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 { - 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]])