m1 <- lm(Fertility ~ ., swiss)
betahat <- coef(m1)
betahat.boot <- bootCase(m1, B=99) # 99 bootstrap samples--too small to be useful
summary(betahat.boot) # default summary
cbind("Bootstrap SD"=apply(betahat.boot, 2, sd),
t(apply(betahat.boot, 2, function(x) quantile(x, c(.025, .975)))))
Run the code above in your browser using DataLab