if (FALSE) {
data(mtcars)
mtcars$yes <- mtcars$wt
formula <- mpg ~ . + 0
x <- stepwise(formula = formula,
data = mtcars,
type = "linear",
strategy = c("bidirection","subset"),
metric = c("AIC", "BIC"))
report(x,report_name = "report", format = c("html","docx"))
}
Run the code above in your browser using DataLab