data(mtcars)
formula <- mpg ~ .
x <- stepwise(formula = formula,
data = mtcars,
type = "linear",
strategy = c("forward","backward","subset"),
metric = c("AIC","BIC"))
vote(x)
Run the code above in your browser using DataLab