m <- lm(Sepal.Length ~ Petal.Width, data = iris)
model_name(m)
model_name(m, include_formula = TRUE)
model_name(m, include_call = TRUE)
if (require("lme4")) {
model_name(lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris))
}
Run the code above in your browser using DataLab