X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=pkg%2FR%2FJ_Zero.R;h=01ba9e30595335126f06b78bfc489fef7d48c8d4;hb=a3344f7591f6f4b3d337a69e4a568e9b16e33415;hp=fb15e3d6f498330d1ce550d6f7579cecf4f55271;hpb=3ddf1c12af0c167fe7d3bb59e63258550270cfc5;p=talweg.git diff --git a/pkg/R/J_Zero.R b/pkg/R/J_Zero.R index fb15e3d..01ba9e3 100644 --- a/pkg/R/J_Zero.R +++ b/pkg/R/J_Zero.R @@ -1,6 +1,6 @@ #' getZeroJumpPredict #' -#' Just predict zero "jump" (for reference, benchmarking at least). +#' "Reset level to 0": jump by -A where A is the last observed value. #' #' @inheritParams computeForecast #' @param today Index of the current day (predict tomorrow) @@ -8,7 +8,8 @@ #' #' @aliases J_Zero #' -getZeroJumpPredict = function(data, today, memory, horizon, params, ...) +getZeroJumpPredict = function(data, today, memory, predict_from, horizon, params, ...) { - 0 + list(...)$first_pred - ifelse( predict_from >= 2, + data$getSerie(today)[predict_from-1], tail(data$getSerie(today-1),1) ) }