#' @title Checks if a model is a mixed effects model
#' @name is_mixed_model
#'
#' @description Small helper that checks if a model is a mixed effects model,
#' i.e. if it the model has random effects.
#'
#' @param x A model object.
#'
#' @return A logical, `TRUE` if `x` is a mixed model.
#'
#' @examplesIf require("lme4")
#' data(mtcars)
#' model <- lm(mpg ~ wt + cyl + vs, data = mtcars)
#' is_mixed_model(model)
#'
#' data(sleepstudy, package = "lme4")
#' model <- lme4::lmer(Reaction ~ Days + (1 | Subject), data = sleepstudy)
#' is_mixed_model(model)
#' @export
is_mixed_model <- function(x) {
UseMethod("is_mixed_model")
}
#' @export
is_mixed_model.default <- function(x) {
!is.null(find_random(x))
}
#' @export
is_mixed_model.afex_aov <- function(x) {
as.logical(length(attr(x, "within")))
}
#' @export
is_mixed_model.marginaleffects <- function(x) {
is_mixed_model(attributes(x)$model)
}
#' @export
is_mixed_model.wbm <- function(x) {
TRUE
}
#' @export
is_mixed_model.wbgee <- is_mixed_model.wbm
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.