# NOT RUN {
data(bmw)
out <- gev(bmw, "month")
# Fit GEV to monthly maxima of daily returns on BMW share price
# }
# NOT RUN {
rlevel.gev(out, 40)
# }
# NOT RUN {
# Calculate the 40 month return level
# }
Run the code above in your browser using DataLab