X-Git-Url: https://git.auder.net/rpsls.js?a=blobdiff_plain;f=data%2Fscripts%2Fbuild_testdata.R;h=e0bc15321b605f88a62e57667cc21614cc49380f;hb=16209589215b8300e07e3525ae5bcb236d6f7008;hp=9bc4fa41d9f2344e00ed384f54cb4da51a62a08b;hpb=613a986f1517ab5a641771da62eba6c7f5a41577;p=talweg.git

diff --git a/data/scripts/build_testdata.R b/data/scripts/build_testdata.R
index 9bc4fa4..e0bc153 100644
--- a/data/scripts/build_testdata.R
+++ b/data/scripts/build_testdata.R
@@ -1,6 +1,16 @@
-# Only one covariable (so that the "matrix" is always invertible)
+#Lundi à dimanche, 182 jours
+dates = seq(as.Date("2007-01-01"),as.Date("2007-07-01"),"days")
+times = strftime( seq(
+	from=ISOdatetime(2007,1,1,1,0,0,tz="GMT"),
+	to=ISOdatetime(2007,7,2,0,0,0,tz="GMT"),
+	by="hour") )
 
+# Only one covariable (so that the "matrix" is always invertible)
+L = length(dates) #182
+exo_df = data.frame( "date"=dates, "var"=rep(1,L), "var_pred"=rep(1,L) )
 # Series are 1,1,...,1 2,2,...,2 ... 7,7,...,7 1,1,...,1 ...etc
-# First serie on monday 2007-01-01
+# First serie on monday 2007-01-01, there are exactly 26 weeks
+ts_df = data.frame( "time"=times, "value"=rep(seq_len(7), each=24, times=26) )
 
-#TODO:
+write.csv(ts_df, file="ts_test.csv", row.names=FALSE)
+write.csv(exo_df, file="exo_test.csv", row.names=FALSE)