# NOT RUN {
set.seed(123)
## Simulate from a GEOVOL model (default):
eSim <- geovolSim(n = 1000, m = 30)
## Test for GEOVOL
eTest <- geovolTest(e = eSim^2)
## Estimate a GEOVOL model:
geovolEst <- geovol(e = eSim)
## Print estimation results:
print(geovolEst)
## Extract coefficients:
coef(geovolEst)
## Extract and store GEOVOL:
sigma2Est <- fitted(geovolEst)
## Extract optimised log-likelihood values:
logLik(geovolEst)
## Extract and store GEOVOL standardised residuals:
etaEst <- residuals(geovolEst)
# }
Run the code above in your browser using DataLab