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