From fc303453a0032811dd74f65e06ba2fa214016bc7 Mon Sep 17 00:00:00 2001
From: Hollos Roland <hollorol@gmail.com>
Date: Fri, 2 Oct 2020 09:02:19 +0200
Subject: [PATCH] delete browser statement

---
 RBBGCMuso/R/calibration.R | 2 +-
 RBBGCMuso/R/plotMuso.R    | 8 --------
 2 files changed, 1 insertion(+), 9 deletions(-)

diff --git a/RBBGCMuso/R/calibration.R b/RBBGCMuso/R/calibration.R
index 4e271fd..6c14b46 100644
--- a/RBBGCMuso/R/calibration.R
+++ b/RBBGCMuso/R/calibration.R
@@ -123,7 +123,7 @@ optiMuso <- function(measuredData, parameters = NULL, startDate = NULL,
         uncert <- NULL
     }
     # browser()
-    browser()
+    # browser()
     origModellOut <- calibMuso(settings=settings, silent=TRUE, skipSpinup = skipSpinup, postProcString=postProcString, modifyOriginal=modifyOriginal)
     partialResult[,resultRange] <- calcLikelihoodsAndRMSE(dataVar=dataVar, 
                                                           mod=origModellOut,
diff --git a/RBBGCMuso/R/plotMuso.R b/RBBGCMuso/R/plotMuso.R
index c85bfac..de02222 100644
--- a/RBBGCMuso/R/plotMuso.R
+++ b/RBBGCMuso/R/plotMuso.R
@@ -53,14 +53,6 @@ plotMuso <- function(settings = NULL, variable = 1,
     numberOfYears <- settings$numYears
     startYear <- settings$startYear
     dailyVarCodes <- settings$dailyVarCodes
-    ## musoData <- rungetMuso(settings=settings,
-    ##                        silent=silent,
-    ##                        timee=timee,
-    ##                        debugging=debugging,
-    ##                        keepEpc=keepEpc,
-    ##                        logfilename=logfilename,
-    ##                        export=export)
-    
     groupByTimeFrame <- function(Data, timeFrame, groupFun){
         Data <- data.table(Data)
         Data[,c(variable):=groupFun(get(variable)),get(timeFrame)]