运行结果:
> #生成时间序列数
> n<-36
> t<-ts(1:n, frequency =1, start =as.Date("2010-01-29"))
> s <- as.Date("2010-01-29")
> dates<-seq(from=s, by=1, length.out=n)
> t<-data.frame(dates,t)
> head(t)
dates t
1 2010-01-29 1
2 2010-01-30 2
3 2010-01-31 3
4 2010-02-01 4
5 2010-02-02 5
6 2010-02-03 6