s <- do(500)*mean( age ~ sex, data=resample(HELPrct) )
confint(s)
confint(s, method="quantile")
confint(s, margin=TRUE)
confint(s, margin=TRUE, level=0.99 )
s2 <- do(500)*mean( resample(1:10) )
confint(s2)
Run the code above in your browser using DataLab