samp <- rnorm(1e3, mean = 100, sd = 10)
probs <- c(1-1e-1, 1-0.5e-1, 1-1e-2)
bootstrap_training_sims <- 100
estimated_quantiles <- sample_quantile_estimation(samp = samp,
probs = probs,
bootstrap_sims = bootstrap_training_sims)
Run the code above in your browser using DataLab