v1.6.3.22 refactor: comment unused rolling mean functions in plot.OutputsModel

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.6.3.21
-Date: 2020-10-16
+Version: 1.6.3.22
+Date: 2020-10-26
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
   person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@inrae.fr"),

NEWS.md

@@ -4,7 +4,7 @@
 
 
 
-### 1.6.3.21 Release Notes (2020-10-16)
+### 1.6.3.22 Release Notes (2020-10-26)
 
 #### New features
 

R/plot.OutputsModel.R

@@ -149,12 +149,12 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
   }
   
   if (BOOL_Dates) {
-    MyRollMean1 <- function(x, n) {
-      return(filter(x, rep(1 / n, n), sides = 2))
-    }
-    MyRollMean2 <- function(x, n) {
-      return(filter(c(tail(x, n %/% 2), x, x[1:(n %/% 2)]), rep(1 / n, n), sides = 2)[(n %/% 2 + 1):(length(x) + n %/% 2)])
-    }
+    # MyRollMean1 <- function(x, n) {
+    #   return(filter(x, rep(1 / n, n), sides = 2))
+    # }
+    # MyRollMean2 <- function(x, n) {
+    #   return(filter(c(tail(x, n %/% 2), x, x[1:(n %/% 2)]), rep(1 / n, n), sides = 2)[(n %/% 2 + 1):(length(x) + n %/% 2)])
+    # }
     MyRollMean3 <- function(x, n) {
       return(filter(x, filter = rep(1 / n, n), sides = 2, circular = TRUE))
     }