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