'update'

[talweg.git] / reports / PackageR.gj

diff --git a/reports/PackageR.gj b/reports/PackageR.gj
index 567bfd6..29c4822 100644 (file)
--- a/reports/PackageR.gj
+++ b/reports/PackageR.gj
@@ -21,17 +21,14 @@ partie suivante.
 library(talweg)
 
 # Acquisition des données (depuis les fichiers CSV)
-ts_data <- read.csv(system.file("extdata","pm10_mesures_H_loc.csv",
-       package="talweg"))
-exo_data <- read.csv(system.file("extdata","meteo_extra_noNAs.csv",
-       package="talweg"))
-data <- getData(ts_data, exo_data,
-       date_format="%d/%m/%Y %H:%M", limit=120)
+ts_data <- read.csv(system.file("extdata","pm10_mesures_H_loc.csv", package="talweg"))
+exo_data <- read.csv(system.file("extdata","meteo_extra_noNAs.csv", package="talweg"))
+data <- getData(ts_data, exo_data, date_format="%d/%m/%Y %H:%M", limit=120)
 # Plus de détails à la section 1 ci-après.
 
 # Prédiction de 10 courbes (jours 102 à 111)
-pred <- computeForecast(data, 101:110, "Persistence", "Zero",
-       predict_from=8, memory=50, horizon=24, ncores=1)
+pred <- computeForecast(data, 101:110, "Persistence", "Zero", predict_from=8, memory=50,
+       horizon=24, ncores=1)
 # Plus de détails à la section 2 ci-après.
 
 # Calcul des erreurs (sur un horizon arbitraire <= horizon de prédiction)