data/scripts/build_testdata.R

   1 # Only one covariable (so that the "matrix" is always invertible)
   2
   3 #Lundi à dimanche, 182 jours
   4 dates = seq(as.Date("2007-01-01"),as.Date("2007-07-01"),"days")
   5 L = length(dates) #182
   6 exo_df = data.frame( "Date"=dates, "var"=rep(1,L), "var_pred"=rep(1,L) )
   7 ts_df =
   8
   9 # Series are 1,1,...,1 2,2,...,2 ... 7,7,...,7 1,1,...,1 ...etc
  10 # First serie on monday 2007-01-01
  11
  12 #TODO: