# NOT RUN {
nbase = 10
Psi = t((1:nbase) %*% t(sin(1:nbase * 2*pi/nbase)) / (nbase*nbase))
process = rar(30, Psi=Psi, sd=0.2)
pdf(file='simulated.arh1.pdf')
plot(process)
title("Simulated ARH(1)")
dev.off()
# }
Run the code above in your browser using DataLab