请问随机生成序列相关数据

1. y <- numeric(1000)
   
2. rnd <- rnorm(1000,0,1)
   
3. y[1] <- 0
   
4. for(i in 2:1000){
   
5.   y[i] <-0.8* y[i-1]+rnd[i]
   
6. }
   
7. y[501:1000]

复制代码