# AR
set.seed(1336)
model = AR1(phi = .99, sigma = 1) + WN(sigma2=1)
demo.lts(model)
# Modify the graph aesthetics
demo.lts(model, N = 100, line.color = c('blue', 'green', 'black'),
point.size = c(1,1,1), process = c('AR1', 'WN', 'Sum'))
Run the code above in your browser using DataLab