X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=pkg%2FR%2FgetForecast.R;h=6e7720e8268fbd823474983470013ae66e621277;hb=613a986f1517ab5a641771da62eba6c7f5a41577;hp=c07be7c6df367c0ca782e6b279b8ca7926254c5b;hpb=469529710f56c790ae932b45d13fed2e34bcabf2;p=talweg.git

diff --git a/pkg/R/getForecast.R b/pkg/R/getForecast.R
index c07be7c..6e7720e 100644
--- a/pkg/R/getForecast.R
+++ b/pkg/R/getForecast.R
@@ -10,7 +10,6 @@
 #'   \item Neighbors : use values from the k closest neighbors' tomorrows
 #'   \item Average : global average of all the (similar) "tomorrow of past"
 #'   \item Zero : just output 0 (benchmarking purpose)
-#'   \item Level : output a flat serie repeating the last observed level
 #' }
 #' @param pjump How to predict the jump at the interface between two days ?
 #' \itemize{
@@ -25,7 +24,7 @@
 #' @return An object of class Forecast
 #'
 #' @examples
-#' data = getData(ts_data="data/pm10_mesures_H_loc.csv", exo_data="data/meteo_extra_noNAs.csv",
+#' data = getData(ts_data="pm10_mesures_H_loc.csv", exo_data="meteo_extra_noNAs.csv",
 #'   input_tz = "Europe/Paris", working_tz="Europe/Paris", predict_at=7)
 #' pred = getForecast(data, 2200:2230, "Persistence", "Persistence", 500, 12)
 #' \dontrun{#Sketch for real-time mode:
@@ -60,6 +59,7 @@ getForecast = function(data, indices, forecaster, pjump=NULL,
 				getFromNamespace(paste("get",pjump,"JumpPredict",sep=""), "talweg"))
 	for (today in indices)
 	{
+		#pred$append(...) is slow; TODO: use R6 class
 		pred[[length(pred)+1]] = list(
 			"serie" = forecaster$predict(today, memory, horizon, ...),
 			"params" = forecaster$getParameters(),