# NOT RUN {
# stepwise backward regression
model <- glm(honcomp ~ female + read + science + math + prog + socst,
data = hsb2, family = binomial(link = 'logit'))
blr_step_p_backward(model)
# stepwise backward regression plot
model <- glm(honcomp ~ female + read + science + math + prog + socst,
data = hsb2, family = binomial(link = 'logit'))
k <- blr_step_p_backward(model)
plot(k)
# final model
k$model
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab