X <- abs(rcauchy(400))
hh <- hill.adapt(X)
probs <- probgrid(0.1, 0.999999, length = 100)
B <- 200
if (FALSE) #For computing time purpose
bootCI(X, weights = rep(1, length(X)), probs = probs, B = B, plot = TRUE)
xgrid <- sort(sample(X, 100))
bootCI(X, weights = rep(1, length(X)), xgrid = xgrid, type = "survival", B = B, plot = TRUE)
Run the code above in your browser using DataLab