# NOT RUN {
## Bootstrap regression results predicting paragraph
## comprehension based on three verbal tests: general info,
## sentence comprehension, & word classification
## Use HS dataset in MBESS
require ("MBESS")
data(HS)
## Regression
lm.out<-lm(t6_paragraph_comprehension~
t5_general_information+t7_sentence+t8_word_classification,data=HS)
## Calculate regression metrics
regrOut<-calc.yhat(lm.out)
## Bootstrap results
require ("boot")
boot.out<-boot(HS,boot.yhat,100,lmOut=lm.out,regrout0=regrOut)
# }
Run the code above in your browser using DataLab