Himp: A Single Bootstrap Procedure for Choosing the Optimal Sample...

In tea: Threshold Estimation Approaches

Description

An Implementation of the procedure proposed in Caeiro & Gomes (2012) for selecting the optimal sample fraction in tail index estimation

Usage

Himp(data, B = 1000, epsilon = 0.955)

Arguments

data	vector of sample data
B	number of Bootstrap replications
epsilon	gives the amount of the first resampling size n1 by choosing n1 = n^epsilon. Default is set to epsilon=0.955

Details

This procedure is an improvement of the one introduced in Hall (1990) by overcoming the restrictive assumptions through estimation of the necessary parameters. The Bootstrap procedure simulates the AMSE criterion of the Hill estimator using an auxiliary statistic. Minimizing this statistic gives a consistent estimator of the sample fraction k/n with k the optimal number of upper order statistics. This number, denoted k0 here, is equivalent to the number of extreme values or, if you wish, the number of exceedances in the context of a POT-model like the generalized Pareto distribution. k0 can then be associated with the unknown threshold u of the GPD by choosing u as the n-k0th upper order statistic. For more information see references.

Value

second.order.par	gives an estimation of the second order parameter rho.
k0	optimal number of upper order statistics, i.e. number of exceedances or data in the tail
threshold	the corresponding threshold
tail.index	the corresponding tail index

References

Hall, P. (1990). Using the Bootstrap to Estimate Mean Squared Error and Select Smoothing Parameter in Nonparametric Problems. Journal of Multivariate Analysis, 32, 177–203.

Caeiro, F. and Gomes, M.I. (2014). On the bootstrap methodology for the estimation of the tail sample fraction. Proceedings of COMPSTAT, 545–552.

Examples

data(danish)
Himp(danish)

Example output

Loading required package: eva
$sec.order.par
[1]  0.349962 -1.268783

$k0
[1] 1179

$threshold
[1] 1.684903

$tail.index
[1] 1.409239

tea documentation built on April 19, 2020, 3:57 p.m.