data(splitplot)
table(splitplot$list, splitplot$subjects)
library(lme4)
dat.lmer1 = lmer2(RT ~ list*priming+(1+priming|subjects)+(1+list|items),data=dat)
dat.lmer2 = lmer2(RT ~ list*priming+(1+priming|subjects)+(1|items),data=dat)
dat.lmer3 = lmer2(RT ~ list*priming+(1|subjects)+(1|items),data=dat)
dat.lmer4 = lmer2(RT ~ list*priming+(1|subjects),data=dat)
anova(dat.lmer1, dat.lmer2, dat.lmer3, dat.lmer4)
print(dat.lmer3, corr=FALSE)
Run the code above in your browser using DataLab