Calculates maximum likelihood estimates of the extremal index \(\theta\) based on the K-gaps model for threshold inter-exceedances times of Suveges and Davison (2010).
kgaps_mle(data, thresh, k = 1, inc_cens = FALSE, conf = NULL)
A numeric vector of raw data. No missing values are allowed.
A numeric scalar. Extreme value threshold applied to data.
A numeric scalar. Run parameter \(K\), as defined in Suveges and
Davison (2010). Threshold inter-exceedances times that are not larger
than k
units are assigned to the same cluster, resulting in a
\(K\)-gap equal to zero. Specifically, the \(K\)-gap \(S\)
corresponding to an inter-exceedance time of \(T\) is given by
\(S = max(T - K, 0)\).
A logical scalar indicating whether or not to include contributions from censored inter-exceedance times relating to the first and last observation. See Attalides (2015) for details.
A numeric scalar. If conf
is supplied then a
conf
% likelihood-based confidence interval for \(\theta\) is
estimated.
A list containing
theta_mle
: The maximum likelihood estimate (MLE) of
\(\theta\).
theta_se
: The estimated standard error of the MLE.
theta_ci
: (If conf
is supplied) a numeric
vector of length two giving lower and upper confidence limits for
\(\theta\).
ss
: The list of summary statistics returned from
kgaps_stats
.
The maximum likelihood estimate of the extremal index \(\theta\)
under the K-gaps model of Suveges and Davison (2010) is calculated.
If inc_cens = TRUE
then information from censored inter-exceedance
times is included in the likelihood to be maximised, following
Attalides (2015). The form of the log-likelihood is given in the
Details section of kgaps_stats
.
Suveges, M. and Davison, A. C. (2010) Model misspecification in peaks over threshold analysis, The Annals of Applied Statistics, 4(1), 203-221. https://doi.org/10.1214/09-AOAS292
Attalides, N. (2015) Threshold-based extreme value modelling, PhD thesis, University College London.
kgaps_stats
for the calculation of sufficient
statistics for the K-gaps model.
# NOT RUN {
thresh <- quantile(newlyn, probs = 0.90)
# MLE and SE only
kgaps_mle(newlyn, thresh)
# MLE, SE and 95% confidence interval
kgaps_mle(newlyn, thresh, conf = 95)
# }
Run the code above in your browser using DataLab