# NOT RUN {
# stepwise forward regression
model <- lm(y ~ ., data = surgical)
ols_stepaic_forward(model)
# }
# NOT RUN {
# }
# NOT RUN {
# stepwise forward regression plot
model <- lm(y ~ ., data = surgical)
k <- ols_stepaic_forward(model)
plot(k)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab