1 #' @include Forecaster.R
3 #' Persistence Forecaster
5 #' Return the last centered (similar) day curve.
6 #' Inherits \code{\link{Forecaster}}
8 PersistenceForecaster = R6::R6Class("PersistenceForecaster",
12 predictShape = function(data, today, memory, horizon, ...)
14 # Return centered last (similar) day curve, avoiding NAs until memory is run
15 first_day = max(1, today-memory)
16 same_day = ifelse(hasArg("same_day"), list(...)$same_day, TRUE)
17 realtime = ifelse(hasArg("realtime"), list(...)$realtime, FALSE)
18 # If 'same_day', get the last known future of similar day: -7 + 1 == -6
19 index = today - ifelse(same_day,6,0)
24 data$getCenteredSerie(index,hat=(index==today && realtime))[1:horizon]
25 index = index - ifelse(same_day,7,1)
27 if (!any(is.na(last_serie)))
29 if (index < first_day)