##simulate 1000 observations from model with default parameter values:
set.seed(123)
y <- tegarchSim(1000)
##estimate and store as 'mymodel':
mymod <- tegarch(y)
##print estimation result:
print(mymod)
##extract coefficients:
coef(mymod)
##extract log-likelihood:
logLik(mymod)
##plot fitted conditional standard deviations:
plot(fitted(mymod))
##plot all the fitted series:
plot(fitted(mymod, verbose=TRUE))
##histogram of standardised residuals:
hist(residuals(mymod))
Run the code above in your browser using DataLab