dat <- plosives
dat$spont[dat$dialect == "Valladolid"] <- NA
dat_form <- intdiff ~ voicing * dialect * spont +
(1 + voicing * spont | speaker) + (1 + dialect | item)
sobj <- standardize(dat_form, dat)
lmod <- nauf_lFormula(sobj$formula, sobj$data)
vless <- droplevels(subset(dat, voicing == "Voiceless"))
vless$fully_voiced <- vless$vdur == 0
vless_form <- fully_voiced ~ dialect * spont +
(1 + spont | speaker) + (1 + dialect | item)
svless <- standardize(vless_form, vless, family = binomial)
glmod <- nauf_glFormula(svless$formula, svless$data, family = binomial)
Run the code above in your browser using DataLab