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