X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=reports%2FPackageR.gj;h=29c48226611a18bd8963511b00e73b571477af8d;hp=567bfd6dc8f3b85fc4acb405951dbdca03305f3d;hb=HEAD;hpb=d2ab47a744d8fb29c03a76a7ca2368dae53f9a57

diff --git a/reports/PackageR.gj b/reports/PackageR.gj
index 567bfd6..29c4822 100644
--- 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)