>>83
a <- ts(1:2000,start=c(2011,6),frequency=365)
plot(a)