# Set seed for reproducibility
set.seed(1336)
n = 1000
# AR1 + WN
model = AR1(phi = .5, sigma2 = .1) + WN(sigma2=1)
x = gen.gts(model, n)
x
plot(x)
set.seed(1336)
# GM + WN
# Convert from AR1 to GM values
m = ar1_to_gm(c(.5,.1),10)
# Beta = 6.9314718, Sigma2_gm = 0.1333333
model = GM(beta = m[1], sigma2_gm = m[2]) + WN(sigma2=1)
x2 = gen.gts(model, n, freq = 10, unit = 'sec')
x2
plot(x2, to.unit = 'min')
# Same time series
all.equal(x, x2, check.attributes = FALSE)
Run the code above in your browser using DataLab