# NOT RUN {
X <- abs(rcauchy(400))
hh <- hill.adapt(X)
probs <- probgrid(0.1, 0.999999, length = 100)
B <- 200
# }
# NOT RUN {
#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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab