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

quickEffect

Browse Source
This commit is contained in:
Roland Hollós 2020-05-23 13:16:23 +02:00
parent 907b41b993
commit 59da27d5ef
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
RBBGCMuso/R/quickeffect.R
View File

@ -15,7 +15,7 @@
#' @importFrom tidyr separate #' @importFrom tidyr separate
#' @export #' @export
musoQuickEffect <- function(settings = NULL,calibrationPar = NULL, startVal, endVal, nSteps = 1, fileToChange="epc", outVar, parName = "parVal"){ musoQuickEffect <- function(settings = NULL,calibrationPar = NULL, startVal, endVal, nSteps = 1, fileToChange="epc",modifyOriginal=TRUE, outVar, parName = "parVal"){
if(is.character(outVar)){ if(is.character(outVar)){
varNames <- as.data.frame(musoMappingFind(outVar)) varNames <- as.data.frame(musoMappingFind(outVar))
@ -43,7 +43,7 @@ musoQuickEffect <- function(settings = NULL,calibrationPar = NULL, startVal, en
parVals <- seq(startVal, endVal, length = (nSteps + 1)) parVals <- seq(startVal, endVal, length = (nSteps + 1))
parVals <- dynRound(startVal, endVal, seqLen = (nSteps + 1)) parVals <- dynRound(startVal, endVal, seqLen = (nSteps + 1))
a <- do.call(rbind,lapply(parVals, function(parVal){ a <- do.call(rbind,lapply(parVals, function(parVal){
calResult <- tryCatch(calibMuso(settings = settings,calibrationPar = calibrationPar, parameters = parVal, outVars = outVarIndex, silent = TRUE,fileToChange = fileToChange), error = function(e){NA}) calResult <- tryCatch(calibMuso(settings = settings,calibrationPar = calibrationPar,modifyOriginal=modifyOriginal, parameters = parVal, outVars = outVarIndex, silent = TRUE,fileToChange = fileToChange), error = function(e){NA})
if(all(is.na(calResult))){ if(all(is.na(calResult))){
b <- cbind(rep(NA,365),parVal) b <- cbind(rep(NA,365),parVal)
rownames(b) <- tail(musoDate(startYear = settings$startYear, numYears = settings$numYears),365) rownames(b) <- tail(musoDate(startYear = settings$startYear, numYears = settings$numYears),365)