From add161f2c97bbd68e27ab81b153fb0e52dbf3c6d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roland=20Holl=C3=B3s?= <hollorol@gmail.com>
Date: Sun, 24 May 2020 21:50:13 +0200
Subject: [PATCH] -1 option for yearNum in quickEffect

---
 RBBGCMuso/R/quickeffect.R | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/RBBGCMuso/R/quickeffect.R b/RBBGCMuso/R/quickeffect.R
index 549a978..3c1e2b5 100644
--- 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))
         }