-1 option for yearNum in quickEffect

2020-05-24 21:50:13 +02:00 · 2020-05-24 21:50:13 +02:00 · add161f2c9
commit add161f2c9
parent cded54273d
1 changed files with 5 additions and 1 deletions
--- a/RBBGCMuso/R/quickeffect.R
+++ b/RBBGCMuso/R/quickeffect.R
@ -52,7 +52,11 @@ musoQuickEffect <- function(settings = setupMuso(), calibrationPar = NULL,  star
            colnames(b)[1] <- varNames
            return(b)
        } 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)
            return(cbind(m, parVal))
        }