## findThreshold -
xmpExtremes("Start: Find Thresold >")
# Find threshold giving (at least) fifty exceedances
# for Danish Fire data
data(danish)
findThreshold(danish, n = c(10, 50, 100))
## blockMaxima -
xmpExtremes("Next: Compute Block Maxima >")
# Block Maxima (Minima) for the right and left tails
# of the BMW log returns:
data(bmw)
par(mfrow = c(2, 1))
blockMaxima( bmw, block = 100)
blockMaxima(-bmw, block = 100)
## deCluster -
xmpExtremes("Next: De-Cluster Exceedences >")
# Decluster the 200 exceedances of a particular
# threshold in the negative BMW log-return data
par(mfrow = c(2, 2))
fit = potFit(-bmw, nextremes = 200)
deCluster(fit$fit$data, 30)Run the code above in your browser using DataLab