# NOT RUN {
# See vignette("DCSmooth") for examples and explanation
## simulation of SARMA 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)
sigma <- 0.5
sarma_model <- list(ar = ar, ma = ma, sigma = sigma)
sarma_simulated <- sarma.sim(100, 100, model = sarma_model)
sarma_simulated$model
## estimation of SARMA process
sarma.est(sarma_simulated$Y)$model
sarma.est(sarma_simulated$Y,
model_order = list(ar = c(1, 1), ma = c(1, 1)))$model
# }
Run the code above in your browser using DataLab