# NOT RUN {
design <-
fixed.factor("X", levels=c("X1", "X2")) +
random.factor("Subj", instances=30)
dat <- design.codes(design)
contrasts(dat$X) <- c(-1, +1)
dat$ysim <- simLMM(formula = ~ 1 + X + (1 + X | Subj),
data = dat,
Fixef = c(200, 10),
VC_sd = list(c(30,10), 50),
CP = 0.3,
empirical = TRUE)
dat$Xn <- ifelse(dat$X=="X1",-1,1)
# lme4::lmer(ysim ~ Xn + (Xn || Subj), data=dat, control=lmerControl(calc.derivs=FALSE))
# }
Run the code above in your browser using DataLab