From c8ef2ddb2d1f28b8356a6c0aa7c8495406226a32 Mon Sep 17 00:00:00 2001 From: Benjamin Auder <benjamin.auder@somewhere> Date: Tue, 11 Apr 2017 15:46:01 +0200 Subject: [PATCH] fix computeError.R --- pkg/R/computeError.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkg/R/computeError.R b/pkg/R/computeError.R index 1fbb2a8..3aa028f 100644 --- a/pkg/R/computeError.R +++ b/pkg/R/computeError.R @@ -15,7 +15,7 @@ #' @export computeError = function(data, pred, horizon=data$getStdHorizon()) { - L = forecast$getSize() + L = pred$getSize() mape_day = rep(0, horizon) abs_day = rep(0, horizon) mape_indices = rep(NA, L) @@ -24,7 +24,7 @@ computeError = function(data, pred, horizon=data$getStdHorizon()) nb_no_NA_data = 0 for (i in seq_len(L)) { - index = forecast$getIndexInData(i) + index = pred$getIndexInData(i) serie = data$getSerie(index+1)[1:horizon] forecast = pred$getForecast(i)[1:horizon] if (!any(is.na(serie)) && !any(is.na(forecast))) -- 2.44.0