I moedelled following ARIMA Process which I also smoothed.
abc1 <- (arima.sim(n = 1400, list(ar = c(0.3, 0.2, 0.15, 0.1, 0.1, 0.1)), sd = sqrt(0.5)))
abc2 <- SMA(abc1, n=360)
My aim is it to add a component for mean-reversion to describe a business cycle model. Ideas?