# NOT RUN {
data(swallowfarms)
dat <- swallowfarms
dat$colsize.z <- scale(dat$colsize) # scaled values for better model convergence
dat$dung.z <- scale(dat$dung)
dat$die <- dat$clutch - dat$fledge
mod <- glmer(cbind(fledge,die) ~ colsize.z + cow + dung.z + (1|farm) , data=dat, family="binomial")
dispersion_glmer(mod)
# }
Run the code above in your browser using DataLab