if (FALSE) {
data(mtcars)
formula <- mpg ~ .
x <- stepwise(formula = formula,
data = mtcars,
type = "linear",
strategy = c("forward","bidirection","subset"),
metric = c("AIC","BIC","SL"))
plot(x)
plot(x, strategy = "forward", process = "overview")
}
Run the code above in your browser using DataLab