Get the model's function call

Returns the model's function call when available.

Usage

get_call(x)

Arguments

x

A fitted mixed model.

Value

A function call.

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)