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

delete browser statement

Browse Source
This commit is contained in:
Hollos Roland 2020-10-02 09:02:19 +02:00
parent 02dfa70309
commit fc303453a0
2 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RBBGCMuso/R/calibration.R
View File

@ -123,7 +123,7 @@ optiMuso <- function(measuredData, parameters = NULL, startDate = NULL,
uncert <- NULL uncert <- NULL
} }
# browser() # browser()
browser() # browser()
origModellOut <- calibMuso(settings=settings, silent=TRUE, skipSpinup = skipSpinup, postProcString=postProcString, modifyOriginal=modifyOriginal) origModellOut <- calibMuso(settings=settings, silent=TRUE, skipSpinup = skipSpinup, postProcString=postProcString, modifyOriginal=modifyOriginal)
partialResult[,resultRange] <- calcLikelihoodsAndRMSE(dataVar=dataVar, partialResult[,resultRange] <- calcLikelihoodsAndRMSE(dataVar=dataVar,
mod=origModellOut, mod=origModellOut,

8
RBBGCMuso/R/plotMuso.R
View File

@ -53,14 +53,6 @@ plotMuso <- function(settings = NULL, variable = 1,
numberOfYears <- settings$numYears numberOfYears <- settings$numYears
startYear <- settings$startYear startYear <- settings$startYear
dailyVarCodes <- settings$dailyVarCodes dailyVarCodes <- settings$dailyVarCodes
## musoData <- rungetMuso(settings=settings,
## silent=silent,
## timee=timee,
## debugging=debugging,
## keepEpc=keepEpc,
## logfilename=logfilename,
## export=export)
groupByTimeFrame <- function(Data, timeFrame, groupFun){ groupByTimeFrame <- function(Data, timeFrame, groupFun){
Data <- data.table(Data) Data <- data.table(Data)
Data[,c(variable):=groupFun(get(variable)),get(timeFrame)] Data[,c(variable):=groupFun(get(variable)),get(timeFrame)]