X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=pkg%2FR%2FcomputeForecast.R;h=f43019074fbdaae2aa0ae2e1097e71663f38aedc;hp=ec6fa0728bf18ca1de54faf97edefb867415b9cb;hb=af3b84f4cacade7d83221ca0249b546c50ddf340;hpb=5d83d8150dc135347d5ef39e5015b88f33fa9ee3

diff --git a/pkg/R/computeForecast.R b/pkg/R/computeForecast.R
index ec6fa07..f430190 100644
--- a/pkg/R/computeForecast.R
+++ b/pkg/R/computeForecast.R
@@ -1,6 +1,6 @@
-#' @title get Forecast
+#' Compute forecast
 #'
-#' @description Predict time-series curves for the selected days indices (lines in data).
+#' Predict time-series curves for the selected days indices (lines in data).
 #'
 #' @param data Dataset, object of type \code{Data} output of \code{getData}
 #' @param indices Days indices where to forecast (the day after)
@@ -53,8 +53,8 @@ computeForecast = function(data, indices, forecaster, pjump,
 
 	pred = Forecast$new( dates=sapply( indices, integerIndexToDate, data ) )
 	forecaster_class_name = getFromNamespace(paste(forecaster,"Forecaster",sep=""), "talweg")
-	forecaster = forecaster_class_name$new(data=data,
-		pjump = getFromNamespace(paste("get",pjump,"JumpPredict",sep=""), "talweg"))
+	forecaster = forecaster_class_name$new(.data=data,
+		.pjump = getFromNamespace(paste("get",pjump,"JumpPredict",sep=""), "talweg"))
 	for (today in integer_indices)
 	{
 		pred$append(