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