dat <- droplevels(subset(plosives, voicing == "Voiceless"))
dat$spont[dat$dialect == "Valladolid"] <- NA
sobj <- standardize(cdur ~ dialect * spont + (1 | speaker) + (1 | item), dat)
mod <- nauf_lmer(sobj$formula, sobj$data)
# lme4 method anova table
anova(mod)
# anova table using Satterthwaite approximation
anova(mod, method = "S")
# anova table using Kenward-Roger approximation
anova(mod, method = "KR")
# list with restricted models and Kenward-Roger table
anova(mod, method = "nested-KR")
# list with restricted models and parametric bootstrap table
# model is first refit with maximum likelihood
anova(mod, method = "PB")
# list with restricted models and likelihood ratio test table
# model is first refit with maximum likelihood
anova(mod, method = "LRT")
Run the code above in your browser using DataLab