# NOT RUN {
set.seed(123)
## Simulate from a GEOVOL model (default):
eSim <- geovolSim(n = 1500, m = 30)
## Test for GEOVOL:
geovolTest(e = eSim^2-1)
## Estimate a GEOVOL model:
eEst <- geovol(e = eSim)
eEst
# }
Run the code above in your browser using DataLab