data(sp500ret)
ctrl = list(rho = 1, delta = 1e-9, outer.iter = 100, tol = 1e-7)
spec = ugarchspec(variance.model = list(model = "sGARCH", garchOrder = c(1,1)),
mean.model = list(armaOrder = c(0,0), include.mean = TRUE),
distribution.model = "std")
sp500.bktest = ugarchroll(spec, data = sp500ret, n.ahead = 1,
forecast.length = 100, refit.every = 25, refit.window = "recursive",
solver = "solnp", fit.control = list(), solver.control = ctrl,
calculate.VaR = TRUE, VaR.alpha = c(0.01, 0.025, 0.05))
report(sp500.bktest, type="VaR", n.ahead = 1, VaR.alpha = 0.01,
conf.level = 0.95)
report(sp500.bktest, type="fpm")
Run the code above in your browser using DataLab