x <- rnorm(20)
## Bootstrap
bootstrap(x, do = mean, n = 100)
## Estimate the 25th and 95th percentiles
quant <- function(x) { quantile(x, probs = c(0.25, 0.75)) }
bootstrap(x, n = 100, do = mean, f = quant)
## Get the n bootstrap values
bootstrap(x, n = 100, do = mean, f = function(x) { x })
## Jackknife
jackknife(x, do = mean) # Sample mean
## Get the leave-one-out values instead of summary
jackknife(x, do = mean, f = function(x) { x })
Run the code above in your browser using DataLab