fix 2 tests out of 3; TODO: test forecasters

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

diff --git a/pkg/R/getForecast.R b/pkg/R/getForecast.R
index c07be7c..8efcff8 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,8 +24,10 @@
 #' @return An object of class Forecast
 #'
 #' @examples
-#' data = getData(ts_data="data/pm10_mesures_H_loc.csv", exo_data="data/meteo_extra_noNAs.csv",
-#'   input_tz = "Europe/Paris", working_tz="Europe/Paris", predict_at=7)
+#' ts_data = system.file("extdata","pm10_mesures_H_loc.csv",package="talweg")
+#' exo_data = system.file("extdata","meteo_extra_noNAs.csv",package="talweg")
+#' data = getData(ts_data, exo_data, 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:
 #' data = new("Data", ...)
@@ -60,6 +61,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(),