# NOT RUN {
model <- lm(mpg ~ disp + hp + wt + qsec, data = mtcars)
ols_step_best_subset(model)
# }
# NOT RUN {
# }
# NOT RUN {
# plot
model <- lm(mpg ~ disp + hp + wt + qsec, data = mtcars)
k <- ols_step_best_subset(model)
plot(k)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab