# 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) )
# 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) )