if (FALSE) {
set.seed(95332)
n1 <- 10 # groups
n2 <- 10 # observations per group
dat <- data.frame(
group = rep(c(LETTERS[1:n1]), each = n2),
w = sample(c(-0.5, 0.5), n1 * n2, replace = TRUE),
x = rep(sample(1:5, n1, replace = TRUE), each = n2),
y = sample(1:5, n1 * n2, replace = TRUE)
)
library(lmerTest)
fit <- lmerTest::lmer(y ~ x * w + (w | group),
data = dat
)
round(ddsc_ml(model=fit,
predictor="x",
moderator="w",
moderator_values=c(0.5,-0.5))$results,3)
round(ddsc_ml(data=dat,
DV="y",
lvl2_unit="group",
predictor="x",
moderator="w",
moderator_values=c(0.5,-0.5))$results,3)
}
Run the code above in your browser using DataLab