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)
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace