if (require("lme4") && require("mediation")) {
## Borrowed from \code{help(mediation::mediate)}:
if (FALSE) {
## Varying intercept for mediator
mod_m <- glmer(job_dich ~ treat + econ_hard + (1 | educ),
family = binomial(link = "probit"), data = jobs)
## Varying intercept and slope for outcome
mod_y <- glmer(work1 ~ treat + job_dich + econ_hard + (1 + treat | occp),
family = binomial(link = "probit"), data = jobs)
## Output based on mediator group ("educ")
mod_med <- mediate(mod_m, mod_y, treat = "treat",
mediator = "job_dich", sims=50, group.out="educ")
}
## Load stored objects
load(system.file("extdata", "mediation_example.rda", package="broom.mixed"))
## Tidy outputs
tidy(mod_m)
tidy(mod_y)
tidy(mod_med)
}
Run the code above in your browser using DataLab