# NOT RUN {
# stepwise regression
model <- glm(y ~ ., data = stepwise)
blr_step_p_both(model)
# stepwise regression plot
model <- glm(y ~ ., data = stepwise)
k <- blr_step_p_both(model)
plot(k)
# final model
k$model
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab