# NOT RUN {
set.seed(1)
x <- runif(100)
hdquantile(x, (1:3)/4, se=TRUE)
# }
# NOT RUN {
# 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