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

calibMuso change

Browse Source
This commit is contained in:
hollorol 2018-03-14 12:32:33 +01:00
parent 957bb9055d
commit 7e7b542da7
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
RBBGCMuso/R/calibMuso.R
View File

@ -20,7 +20,7 @@
#' @export #' @export
calibMuso <- function(settings,parameters=NULL, timee="d", debugging=FALSE, logfilename=NULL, keepEpc=FALSE, export=FALSE, silent=FALSE, aggressive=FALSE, leapYear=FALSE,keepBinary=FALSE, binayPlace="./"){ calibMuso <- function(settings,parameters=NULL, timee="d", debugging=FALSE, logfilename=NULL, keepEpc=FALSE, export=FALSE, silent=FALSE, aggressive=FALSE, leapYear=FALSE,keepBinary=FALSE, binayPlace="./", fileToChange="epc"){
########################################################################## ##########################################################################
@ -70,7 +70,12 @@ calibMuso <- function(settings,parameters=NULL, timee="d", debugging=FALSE, logf
##change the epc file if and only if there are given parameters ##change the epc file if and only if there are given parameters
if(!is.null(parameters)){ if(!is.null(parameters)){
changemulline(filename=epc[2],calibrationPar,parameters)
switch(fileToChange,
"epc"=(changemulline(filename=epc[2],calibrationPar,parameters)),
"ini"=(changemulline(filename=iniInput[2],calibrationPar,parameters)),
"both"=(stop(This option is not implemented yet, please choose epc or ini))
)
} }
##We change the working directory becase of the model, but we want to avoid sideeffects, so we save the current location and after that we will change everything to it. ##We change the working directory becase of the model, but we want to avoid sideeffects, so we save the current location and after that we will change everything to it.