if (require(mosaicData)) {
bootstrap <- do(500) * diffmean( age ~ sex, data=resample(HELPrct) )
confint(bootstrap)
confint(bootstrap, df=nrow(HELPrct) - 1)
confint(bootstrap, method="quantile")
confint(bootstrap, margin.of.error=FALSE, df=nrow(HELPrct) - 1)
confint(bootstrap, margin.of.error=TRUE, level=0.99,
df=nrow(HELPrct) - 1,
method=c("se", "quant") )
bootstrap2 <- do(500)*mean( resample(1:10) )
confint(bootstrap2)
confint(bootstrap2, df=9)
}
if (require(mosaicData)) {
confint( summary(lm(width ~ length * sex, data=KidsFeet)) )
}
Run the code above in your browser using DataLab