set.seed(1234)
# Define DGP of AR process
mdl_ar <- list(n = 500,
mu = 5,
sigma = 2,
phi = c(0.5,0.2))
# Simulate process using simuAR() function
y_simu <- simuAR(mdl_ar)
plot(y_simu)
Run the code above in your browser using DataLab