n = 1000
model = AR(phi = c(0.9, -0.5), sigma2 = 1)
Xt = gen_gts(n, model, freq = 4)
plot(Xt)
model1 = estimate(AR(1), Xt)
predict(model1, n.ahead = 10)
check(model1)
plot(wvar(res), main = "Haar WVar Representation", legend_position = NA)
sigma2 = rep(var(res), length(wvar(res)$scales))
points(wvar(res)$scales, sigma2/as.numeric(wvar(res)$scales), col = "orange", pch=0, cex=2)
lines(wvar(res)$scales, sigma2/as.numeric(wvar(res)$scales), col = "orange", lty = 1)
# add legend
if (wvar(res)$robust == TRUE){
wv_title_part1 = "Empirical Robust WV "
}else{
wv_title_part1 = "Empirical WV "
}
CI_conf = 1 - wvar(res)$alpha
legend("bottomleft",
legend = c(as.expression(bquote(paste(.(wv_title_part1), hat(nu)^2))),
as.expression(bquote(paste("CI(",hat(nu)^2,", ",.(CI_conf),")"))),
"WV implied by WN"),
pch = c(16, 15, 0), lty = c(1, NA, 1),
col = c("darkblue", hcl(h = 210, l = 65, c = 100, alpha = 0.2), "orange"),
cex = 1, pt.cex = c(1.25, 3, 1.25), bty = "n")
kalman_filterfunction in a list of matrix w/ forecast, filter and smooth (@lionelvoirol )AIC.fitsimtsandevaluatein vignette(s) and textbook.diag_ljungboxand Figure 4.15).gmwmandrgmwm.RW,WN,QNandDRprocesses (as well as sum of latent processes) for the functionestimateused with optiongmwmandrgmwm.AR(1)would be Gaussian AR(1) whileAR(1, df = 5)would an AR(1) with t-distributed residuals with 5 df.selectfunction should be made compatible with the following models:RW3dimensions. In particular, these parameters should be added as inputs:couleur = "blue4",xlab = "X-position",ylab = "Y-position",main = NULL,pt_col = NULL,pt_pch = 16,pt.cex = 2,leg_pos = NULL.wvpackage: