data("NYSESW")
"zoo"
"Date"
StockWatson2007
## returns data("NYSESW") ret <- 100 * diff(log(NYSESW)) plot(ret) ## Stock and Watson (2007), p. 667, GARCH(1,1) model library("tseries") fm <- garch(coredata(ret)) summary(fm)
Run the code above in your browser using DataLab