#' @include ShapeForecaster.R
#'
#' @title Persistence Shape Forecaster
#'
#' @description Return the last centered last (similar) day curve (may be a lot of NAs,
#'   but we cannot do better). Inherits \code{\link{ShapeForecaster}}
PersistenceShapeForecaster = setRefClass(
	Class = "PersistenceShapeForecaster",
	contains = "ShapeForecaster",

	methods = list(
		initialize = function(...)
		{
			callSuper(...)
		},
		predict = function(today, memory, horizon, ...)
		{
			#return centered last (similar) day curve (may be a lot of NAs, but we cannot do better)
			last_similar_serie = data$getCenteredSerie(today-6)[1:horizon]
			if (any(is.na(last_similar_serie))) #TODO:
				return (NA)
			last_similar_serie
		}
	)
)