# NOT RUN {
data(danish)
# }
# NOT RUN {
out <- gpd(danish, 10)
# }
# NOT RUN {
tp <- tailplot(out)
# }
# NOT RUN {
gpd.q(tp, 0.999)
# }
# NOT RUN {
# Estimates 99.9th percentile of Danish fire losses
# }
Run the code above in your browser using DataLab