# NOT RUN {
# See vignette("DCSmooth") for examples and explanation
## simulation of SFARIMA process
ma <- matrix(c(1, 0.2, 0.4, 0.1), nrow = 2, ncol = 2)
ar <- matrix(c(1, 0.5, -0.1, 0.1), nrow = 2, ncol = 2)
d <- c(0.1, 0.1)
sigma <- 0.5
sfarima_model <- list(ar = ar, ma = ma, d = d, sigma = sigma)
sfarima_sim <- sfarima.sim(50, 50, model = sfarima_model)
## estimation of SFARIMA process
sfarima.est(sfarima_sim$Y)$model
sfarima.est(sfarima_sim$Y,
model_order = list(ar = c(1, 1), ma = c(0, 0)))$model
# }
Run the code above in your browser using DataLab