set.seed(1)
x <- runif(100)
hdquantile(x, (1:3)/4, se=TRUE)
if (FALSE) {
# Compare jackknife standard errors with those from the bootstrap
library(boot)
boot(x, function(x,i) hdquantile(x[i], probs=(1:3)/4), R=400)
}
Run the code above in your browser using DataLab