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

-1 option for yearNum in quickEffect

Browse Source
This commit is contained in:
Roland Hollós 2020-05-24 21:50:13 +02:00
parent cded54273d
commit add161f2c9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
RBBGCMuso/R/quickeffect.R
View File

@ -52,7 +52,11 @@ musoQuickEffect <- function(settings = setupMuso(), calibrationPar = NULL, star
colnames(b)[1] <- varNames colnames(b)[1] <- varNames
return(b) return(b)
} else { } else {
m <- as.data.frame(calResult[musoDate(startYear = year, numYears = 1),]) if(yearNum >=0){
m <- as.data.frame(calResult[musoDate(startYear = year, numYears = 1),])
} else{
m <- as.data.frame(calResult)
}
colnames(m) <- colnames(calResult) colnames(m) <- colnames(calResult)
return(cbind(m, parVal)) return(cbind(m, parVal))
} }