Naive backeward elimination
step_down(object, ..., trace = FALSE, k)
object |
A fitted model object |
... |
additional arguments passed to |
trace |
logical: do you want a trace of the process printed? |
k |
penalty (default 2, as for AIC) |
A refined fitted model object
fm <- lm(medv ~ . + (rm + tax + lstat)^2 + I((rm - 6)^2) + I((tax - 400)^2) + I((lstat - 12)^2), Boston) sfm <- step_down(fm, trace = TRUE, k = "bic")
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.