window.zoo <- get("window.zoo", envir = asNamespace("zoo"))
rt <- window.zoo(SP500, start = "2010-01-01", end = "2012-12-31")
est <- fEGarch(egarch_spec(), rt)
# Access estimated conditional standard deviations using
# the common operator "@" ...
sigt1 <- est@sigt
# ... or use the accessor method "sigt()"
sigt2 <- sigt(est)
zoo::plot.zoo(
cbind("Approach 1" = sigt1, "Approach 2" = sigt2)
)
# Other methods
cmeans(est)
etat(est)
inf_criteria(est)
llhood(est)
pars(est)
se(est)
vcov_mat(est)
Run the code above in your browser using DataLab