mydata <- data.frame(a = runif(40), b = rnorm(40))
boot1 <- bootstrap(mydata, colMeans)
boot1
par(mfrow = c(2,1))
plot(boot1)
hist(boot1) # same as plot
qqnorm(boot1)
par(mfrow = c(1,1))
quantile(boot1, probs = c(.25, .75))Run the code above in your browser using DataLab