ar1 <- ngsim(n = 400, arcoef = 0.95, noisew = 1, paramw = 1, noisev = 1,
paramv = 1, seed = 555)
plot(ar1, use = c(201, 400))
ar2 <- ngsim(n = 400, arcoef = c(1.3, -0.8), noisew = 1, paramw = 1, noisev = 1,
paramv = 1, seed = 555)
plot(ar2, use = c(201, 400))
Run the code above in your browser using DataLab