library(lme4, keep.source=FALSE)
library(coda)
data(latinsquare)
l.lmer = lmer(RT~SOA+(1|Word)+(1|Subject), data=latinsquare)
mcmc = mcmcsamp(l.lmer, n=10000)
aovlmer.fnc(l.lmer, mcmc, c("SOAmedium", "SOAshort"))
Run the code above in your browser using DataLab