X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=pkg%2FR%2FF_Persistence.R;h=220e04cfa9e279cff66ed47c9b505dbcbef562e9;hp=ce02bd4a4165571e4088cb3a2cd68343e3b41522;hb=98e958cab563866f8e00886b54336018a2e8bc97;hpb=af3b84f4cacade7d83221ca0249b546c50ddf340 diff --git a/pkg/R/F_Persistence.R b/pkg/R/F_Persistence.R index ce02bd4..220e04c 100644 --- a/pkg/R/F_Persistence.R +++ b/pkg/R/F_Persistence.R @@ -8,7 +8,7 @@ PersistenceForecaster = R6::R6Class("PersistenceForecaster", inherit = Forecaster, public = list( - predictShape = function(today, memory, horizon, ...) + predictShape = function(data, today, memory, horizon, ...) { # Return centered last (similar) day curve, avoiding NAs until memory is run first_day = max(1, today-memory) @@ -18,7 +18,7 @@ PersistenceForecaster = R6::R6Class("PersistenceForecaster", repeat { { - last_serie = private$.data$getCenteredSerie(index)[1:horizon] + last_serie = data$getCenteredSerie(index)[1:horizon] index = index - ifelse(same_day,7,1) }; if (!any(is.na(last_serie)))