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