+++ /dev/null
-#' Obtain jump forecast by the Neighbors method
-#'
-#' @inheritParams getForecast
-#' @inheritParams getZeroJumpPredict
-getNeighborsJumpPredict = function(data, today, memory, horizon, params, ...)
-{
- first_day = max(1, today-memory)
- filter = params$indices >= first_day
- indices = params$indices[filter]
- weights = params$weights[filter]
- if (any(is.na(weights) | is.na(indices)))
- return (NA)
-
- gaps = sapply(indices, function(i) {
- data$getSerie(i+1)[1] - tail(data$getSerie(i), 1)
- })
- scal_product = weights * gaps
- norm_fact = sum( weights[!is.na(scal_product)] )
- sum(scal_product, na.rm=TRUE) / norm_fact
-}