# NOT RUN {
model <- glm(y ~ ., data = stepwise)
# selection summary
blr_step_aic_both(model)
# print details at each step
blr_step_aic_both(model, details = TRUE)
# plot
plot(blr_step_aic_both(model))
# final model
k <- blr_step_aic_both(model)
k$model
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab