all set-up to prepare ultimate test before last reports

[talweg.git] / pkg / R / getForecast.R

diff --git a/pkg/R/getForecast.R b/pkg/R/getForecast.R
index c07be7c..6e7720e 100644 (file)
--- 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(),