data(writtenVariationLijk)
library(lme4, keep.source=FALSE)
writtenVariationLijk.lmer = lmer(Count ~ Country * Register + (1|Word),
data = writtenVariationLijk, family = "poisson", method = "Laplace")
writtenVariationLijk.lmerA = lmer(Count ~ Country * Register + (Country|Word),
data = writtenVariationLijk, family = "poisson", method = "Laplace")
anova(writtenVariationLijk.lmer, writtenVariationLijk.lmerA)
writtenVariationLijk.lmerA
Run the code above in your browser using DataLab