undebug optimuso

This commit is contained in:
Hollos Roland 2019-12-18 17:25:20 +01:00
parent 9acc861d9b
commit 91d55931b6

View File

@ -125,7 +125,7 @@ optiMuso <- function(measuredData, parameters = NULL, startDate = NULL,
parameters = randValues[(i-1),],
silent= FALSE,
skipSpinup = skipSpinup, postProcString = postProcString)[modIndex,colNumb], error = function (e) NA)
browser()
# browser()
modellOut[i]<- likelihood(measuredData,tmp)
rmse[i] <- sqrt(mean((measuredData-tmp)^2))