Nothing
#' @include set_coef.R
#' @rdname set_coef
#' @keywords internal
#' @export
set_coef.merMod <- function(model, coefs, ...) {
# in 'merMod', predictions work the slot called "beta", which is unnamed
# `fixef(model)` returns the same thing named
beta <- methods::slot(model, "beta")
beta[match(names(coefs), names(lme4::fixef(model)))] <- as.numeric(coefs)
methods::slot(model, "beta") <- beta
model
}
#' @include get_coef.R
#' @rdname get_coef
#' @export
get_coef.merMod <- function(model, ...) {
lme4::fixef(model)
}
#' @rdname get_predict
#' @export
get_predict.merMod <- function(model,
newdata = insight::get_data(model),
type = "response",
...) {
get_predict.default(model,
newdata = newdata,
type = type,
...)
}
#' @rdname set_coef
#' @export
set_coef.lmerModLmerTest <- set_coef.merMod
#' @rdname get_coef
#' @export
get_coef.lmerModLmerTest <- get_coef.merMod
#' @rdname get_predict
#' @export
get_predict.lmerModLmerTest <- get_predict.merMod
#' @rdname set_coef
#' @export
set_coef.lmerMod <- set_coef.merMod
#' @rdname get_coef
#' @export
get_coef.lmerMod <- get_coef.merMod
#' @rdname get_predict
#' @export
get_predict.lmerMod <- get_predict.merMod
#' @rdname sanitize_model_specific
#' @export
sanitize_model_specific.merMod <- function(model, re.form = NULL, ...) {
# re.form=NA
if (!isTRUE(is.na(re.form))) {
msg <- "For this model type, `marginaleffects` only takes into account the uncertainty in fixed-effect parameters. You can use the `re.form=NA` argument to acknowledge this explicitly and silence this warning."
insight::format_warning(msg)
}
return(model)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.