X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=pkg%2FR%2FcomputeError.R;h=db5783e6f6271ccc309fe32cd576db6d87dd379c;hb=4f3fdbb8e2ac4bd57a4e27539a58ef0e7ec2304c;hp=0b1771f2e1769b16603c9837291f5b916facf881;hpb=d2ab47a744d8fb29c03a76a7ca2368dae53f9a57;p=talweg.git

diff --git a/pkg/R/computeError.R b/pkg/R/computeError.R
index 0b1771f..db5783e 100644
--- a/pkg/R/computeError.R
+++ b/pkg/R/computeError.R
@@ -4,8 +4,10 @@
 #'
 #' @param data Object of class \code{Data} output of \code{getData}
 #' @param pred Object of class \code{Forecast} output of \code{computeForecast}
-#' @param horizon Horizon where to compute the error
-#'   (<= horizon used in \code{computeForecast})
+#' @param predict_from First time step to consider (>= predict_from used in
+#'   \code{computeForecast()})
+#' @param horizon Horizon where to compute the error (<= horizon used in
+#'   \code{computeForecast})
 #'
 #' @return A list (abs,MAPE) of lists (day,indices). The "indices" slots contain series
 #'   of size L where L is the number of predicted days; i-th value is the averaged error
@@ -16,8 +18,8 @@
 computeError = function(data, pred, predict_from, horizon=length(data$getSerie(1)))
 {
 	L = pred$getSize()
-	mape_day = rep(0, horizon)
-	abs_day = rep(0, horizon)
+	mape_day = rep(0, horizon-predict_from+1)
+	abs_day = rep(0, horizon-predict_from+1)
 	mape_indices = rep(NA, L)
 	abs_indices = rep(NA, L)