model <- lm(mpg ~ ., data = mtcars)
select_parameters(model)
model <- lm(mpg ~ cyl * disp * hp * wt, data = mtcars)
select_parameters(model)
# \donttest{
# lme4 -------------------------------------------
model <- lme4::lmer(
Sepal.Width ~ Sepal.Length * Petal.Width * Petal.Length + (1 | Species),
data = iris
)
select_parameters(model)
# }
Run the code above in your browser using DataLab