R/F_Persistence.R

   1 #' @include Forecaster.R
   2 #'
   3 #' @title Persistence Forecaster
   4 #'
   5 #' @description Return the last centered (similar) day curve.
   6 #'   Inherits \code{\link{Forecaster}}
   7 PersistenceForecaster = setRefClass(
   8     Class = "PersistenceForecaster",
   9     contains = "Forecaster",
  10
  11     methods = list(
  12         initialize = function(...)
  13         {
  14             callSuper(...)
  15         },
  16         predictShape = function(today, memory, horizon, ...)
  17         {
  18             # Return centered last (similar) day curve, avoiding NAs until memory is run
  19             first_day = max(1, today-memory)
  20             same_day = ifelse(hasArg("same_day"), list(...)$same_day, TRUE)
  21             # If 'same_day', get the last known future of similar day: -7 + 1 == -6
  22             index = today - ifelse(same_day,6,0)
  23             repeat
  24             {
  25                 {
  26                     last_serie = data$getCenteredSerie(index)[1:horizon]
  27                     index = index - ifelse(same_day,7,1)
  28                 };
  29                 if (!any(is.na(last_serie)))
  30                     return (last_serie);
  31                 if (index < first_day)
  32                     return (NA)
  33             }
  34         }
  35     )
  36 )