Skip to content
Prev 19949 / 20628 Next

time*treatment vs time + time:treatment in RCTs

Instead of combining the groups at pretest, you could also switch to indicator variables. 

dat_long$Subj <- factor(dat_long$ID)

mm <- model.matrix(~ 1 + time*group, data=dat_long)
t <- mm[,2]
t_x_g <- mm[,4]
res3 <- lmer(vo2 ~  1 + t + t_x_g + (1 | Subj),
             data = dat_long, REML=FALSE,
             control=lmerControl(calc.derivs = FALSE))

anova(res3, res2)

#Data: dat_long
#Models:
#res3: vo2 ~ 1 + t + t_x_g + (1 | Subj)
#res2: vo2 ~ 1 + time + group:time + (1 | Subj)
#     npar    AIC    BIC  logLik deviance  Chisq Df Pr(>Chisq)  
#res3    5 600.56 614.49 -295.28   590.56                       
#res2    6 599.81 616.54 -293.91   587.81 2.7446  1    0.09758 .
#---
#Signif. codes:  0 ?***? 0.001 ?**? 0.01 ?*? 0.05 ?.? 0.1 ? ? 1