R生成随机趋势的时间序列

R生成随机趋势的时间序列

Rwalk<-vector() #定义一个向量
Rwalk[1]<-rnorm(1) #给向量的第一个值赋值一个正态分布的随机数
for(i in 2:60){
  Rwalk[i]<-Rwalk[i-1]+rnorm(1) #设置60个数，每个数是前一个+正态随机数
}
ts_Rwalk<-ts(Rwalk) #转为时间序列数据
win.graph(width=4.8,height=2.5,pointsize=8) #设置图像窗口
plot(ts_Rwalk, ylab='Random walk', xlab='Time')
points(ts_Rwalk, col='blue')