[talweg.git] / data / scripts / build_testdata.R

#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"), tz="GMT" )

# 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, there are exactly 26 weeks
ts_df = data.frame( "time"=times, "value"=rep(seq_len(7), each=24, times=26) )

write.csv(ts_df, file="ts_test.csv", row.names=FALSE)
write.csv(exo_df, file="exo_test.csv", row.names=FALSE)
Commit	Line	Data
6710081f BA	1	#Lundi à dimanche, 182 jours
6710081f BA	2	dates = seq(as.Date("2007-01-01"),as.Date("2007-07-01"),"days")
da7f46b8 BA	3	times = strftime( seq(
	4	from=ISOdatetime(2007,1,1,1,0,0,tz="GMT"),
	5	to=ISOdatetime(2007,7,2,0,0,0,tz="GMT"),
44a9990b	6	by="hour"), tz="GMT" )
6710081f	7
da7f46b8 BA	8	# Only one covariable (so that the "matrix" is always invertible)
	9	L = length(dates) #182
	10	exo_df = data.frame( "date"=dates, "var"=rep(1,L), "var_pred"=rep(1,L) )
613a986f	11	# Series are 1,1,...,1 2,2,...,2 ... 7,7,...,7 1,1,...,1 ...etc
da7f46b8 BA	12	# First serie on monday 2007-01-01, there are exactly 26 weeks
da7f46b8 BA	13	ts_df = data.frame( "time"=times, "value"=rep(seq_len(7), each=24, times=26) )
613a986f	14
da7f46b8 BA	15	write.csv(ts_df, file="ts_test.csv", row.names=FALSE)
da7f46b8 BA	16	write.csv(exo_df, file="exo_test.csv", row.names=FALSE)