library(tseries)
data(EuStockMarkets)
ftse <- diff(log(EuStockMarkets))[,"FTSE"]
ftse.garch <- garch(ftse, order=c(1,1))
summary(ftse.garch)