#import lmerTest package
library(lmerTest)
#import ham data from lmerTest package
data(ham)
m.ham <- lmer(Informed.liking ~ Product*Information*Gender
+ (1|Consumer), data=ham)
# type 3 anova table with denominator degrees of freedom
# calculated based on Satterthwaite's approximation
anova(m.ham)
# type 1 anova table with denominator degrees of freedom
# calculated based on Satterthwaite's approximation
anova(m.ham, type=1)
# type3 anova table with additional F statistics and denominator degrees of freedom
# calculated based on Kenward-Roger's approximation
anova(m.ham, ddf="Kenward-Roger")
# anova table, that is returned by lme4 package
anova(m.ham, ddf="lme4")
Run the code above in your browser using DataLab