Returns the model's function call when available.
Arguments
- x
A fitted mixed model.
Examples
data(mtcars)
m <- lm(mpg ~ wt + cyl + vs, data = mtcars)
get_call(m)
#> lm(formula = mpg ~ wt + cyl + vs, data = mtcars)
if (require("lme4")) {
m <- lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris)
get_call(m)
}
#> lmer(formula = Sepal.Length ~ Sepal.Width + (1 | Species), data = iris)