R语言时间序列作业