data(primingHeid)
library(lme4, keep.source=FALSE)
primingHeid.lmer = lmer(RT ~ RTtoPrime * ResponseToPrime + Condition +
(1|Subject) + (1|Word), data = primingHeid)
pvals.fnc(primingHeid.lmer)$summary
# model criticism
primingHeid.lmer = lmer(RT ~ RTtoPrime * ResponseToPrime + Condition +
(1|Subject) + (1|Word),
data = primingHeid[abs(scale(resid(primingHeid.lmer)))<2.5,])
pvals.fnc(primingHeid.lmer)$summary
Run the code above in your browser using DataLab