# stepwise backward regression
model <- lm(y ~ ., data = surgical)
ols_step_backward(model)
# stepwise backward regression plot
model <- lm(y ~ ., data = surgical)
k <- ols_step_backward(model)
plot(k)
Run the code above in your browser using DataLab