window.zoo <- get("window.zoo", envir = asNamespace("zoo"))
rt <- window.zoo(SP500, end = "2003-12-31")
egarch_spec() %>%
fEGarch(rt = rt, n_test = 250) %>%
predict_roll() %>%
measure_risk() %>%
autoplot(which = 0.99)
Run the code above in your browser using DataLab