# NOT RUN {
# We need the evir package
got_evir <- requireNamespace("evir", quietly = TRUE)
if (got_evir) {
library(evir)
data(danish)
out <- pot(danish, 10)
ls(out)
out <- pot_refit(danish, 10)
ls(out)
}
# }
Run the code above in your browser using DataLab