# NOT RUN {
data(mtcars)
mod1 <- lm(mpg ~ cyl, mtcars)
mod2 <- lm(mpg ~ cyl + vs, mtcars)
mod3 <- lm(mpg ~ cyl + vs + I(vs^2), mtcars)
mod4 <- lm(mpg ~ cyl * vs, mtcars)
ictab(aic, mod1, mod2, mod3, mod4)
ictab(bic, mod1, mod2, mod3, mod4)
# }
Run the code above in your browser using DataLab