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

undebug optimuso

Browse Source
This commit is contained in:
Hollos Roland 2019-12-18 17:25:20 +01:00
parent 9acc861d9b
commit 91d55931b6
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/calibration.R
View File

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