'update'

[talweg.git] / pkg / R / utils.R

diff --git a/pkg/R/utils.R b/pkg/R/utils.R
index bc80030..9e51f00 100644 (file)
--- a/pkg/R/utils.R
+++ b/pkg/R/utils.R
@@ -61,6 +61,7 @@ integerIndexToDate = function(index, data)
 #' @param limit Maximum number of indices to return
 #' @param same_season Should the indices correspond to day in same season?
 #' @param days_in Optional set to intersect with results (NULL to discard)
+#' @param operational If TRUE: do not look for days after index (operational context)
 #'
 #' @export
 getSimilarDaysIndices = function(index, data, limit, same_season,
@@ -113,8 +114,8 @@ getSimilarDaysIndices = function(index, data, limit, same_season,
 #
 .isSameSeason = function(month, month_ref)
 {
-       if (month_ref == 3) #TODO: same as Bruno (but weird)
-               return (month %in% c(2,3,4,9,10))
+#      if (month_ref == 3) #TODO: same as Bruno (but weird)
+#              return (month %in% c(2,3,4,9,10))
        if (month_ref %in% c(11,12,1,2)) #~= mid-polluted
                return (month %in% c(11,12,1,2))
        if (month_ref %in% c(3,4,9,10)) #~= high-polluted