X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=pkg%2FR%2FcomputeForecast.R;fp=pkg%2FR%2FcomputeForecast.R;h=e1b29b6b9c9a800e946031f663589937963e1cdf;hp=c778d66f16043327b0f5fade15fc29d5c77c5ae3;hb=8ab6420267542d34b7428f978aa76ba939b9754b;hpb=aa5397f16be60b338e303b26cfceb65defac3054

diff --git a/pkg/R/computeForecast.R b/pkg/R/computeForecast.R
index c778d66..e1b29b6 100644
--- a/pkg/R/computeForecast.R
+++ b/pkg/R/computeForecast.R
@@ -27,6 +27,7 @@
 #' @param memory Data depth (in days) to be used for prediction.
 #' @param horizon Last time step to predict.
 #' @param ncores Number of cores for parallel execution (1 to disable).
+#' @param verbose TRUE to print basic traces (runs beginnings)
 #' @param ... Additional parameters for the forecasting models.
 #'
 #' @return An object of class Forecast
@@ -60,7 +61,7 @@
 #' } }
 #' @export
 computeForecast = function(data, indices, forecaster, pjump, predict_from,
-	memory=Inf, horizon=length(data$getSerie(1)), ncores=3, ...)
+	memory=Inf, horizon=length(data$getSerie(1)), ncores=3, verbose=FALSE, ...)
 {
 	# (basic) Arguments sanity checks
 	predict_from = as.integer(predict_from)[1]
@@ -89,6 +90,8 @@ computeForecast = function(data, indices, forecaster, pjump, predict_from,
 
 	computeOneForecast <- function(i)
 	{
+		if (verbose)
+			print(paste("Index",i))
 		list(
 			"forecast" = forecaster$predictSerie(data,i,memory,predict_from,horizon,...),
 			"params" = forecaster$getParameters(),