# NOT RUN {
model <- glm(honcomp ~ female + read + science, data = hsb2,
family = binomial(link = 'logit'))
# selection summary
blr_step_aic_forward(model)
# print details of each step
blr_step_aic_forward(model, details = TRUE)
# plot
plot(blr_step_aic_forward(model))
# final model
k <- blr_step_aic_forward(model)
k$model
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab