if (requireNamespace("lme4", quietly = TRUE) &&
requireNamespace("emmeans", quietly = TRUE)) {
data(ex125, package = "VetResearchLMM")
fit <- lme4::lmer(
Pcv ~ dose * Drug + (1 | Region / Drug),
data = ex125,
REML = TRUE
)
emmeans_mixed_model(fit, ~ dose | Drug, lmer.df = "asymptotic")
emmeans_mixed_model(
fit,
~ dose | Drug,
pairwise = TRUE,
lmer.df = "asymptotic"
)
}
Run the code above in your browser using DataLab