fixes and improvements
[talweg.git] / R / D_Persistence.R
CommitLineData
3d69ff21
BA
1#' Obtain delta forecast by the Persistence method
2#'
3#' @inheritParams getForecast
4#' @inheritParams getZeroDeltaForecast
5getPersistenceDeltaForecast = function(data, today, memory, horizon, shape_params, ...)
6{
09cf9c19
BA
7 #return gap between end of similar day curve and first day of tomorrow (in the past)
8 first_day = max(1, today-memory)
9 index = today-7
10 repeat
11 {
12 {
13 last_similar_serie_end = tail( data$getCenteredSerie(index), 1)
14 last_similar_tomorrow_begin = data$getCenteredSerie(index+1)[1]
15 index = index - 7
16 };
17 if (!is.na(last_similar_serie_end) && !is.na(last_similar_tomorrow_begin))
18 return (last_similar_tomorrow_begin - last_similar_serie_end);
19 if (index < first_day)
20 return (NA)
21 }
3d69ff21 22}