weixin_45176042的博客

#unit3library("timeSeries")#例3-1x1<-arima.sim(n=100,list(ar=0.8))x3<-arima.sim(n=100,list(ar=c(1,-0.5)))e<-rnorm(100)x2<-filter(e,filter = -1.1,method = "recursive")x4<-filter(e,filter = c(1,0.5),method = "recursive")ts.plot(x1)ts.p