[talweg.git] / R / S_Persistence.R

#' @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
		}
	)
)
Commit	Line	Data
3d69ff21 BA	1	#' @include ShapeForecaster.R
	2	#'
	3	#' @title Persistence Shape Forecaster
	4	#'
	5	#' @description Return the last centered last (similar) day curve (may be a lot of NAs,
	6	#' but we cannot do better). Inherits \code{\link{ShapeForecaster}}
	7	PersistenceShapeForecaster = setRefClass(
	8	Class = "PersistenceShapeForecaster",
	9	contains = "ShapeForecaster",
	10
	11	methods = list(
	12	initialize = function(...)
	13	{
	14	callSuper(...)
	15	},
	16	predict = function(today, memory, horizon, ...)
	17	{
	18	#return centered last (similar) day curve (may be a lot of NAs, but we cannot do better)
	19	last_similar_serie = data$getCenteredSerie(today-6)[1:horizon]
	20	if (any(is.na(last_similar_serie))) #TODO:
	21	return (NA)
	22	last_similar_serie
	23	}
	24	)
	25	)