Last chance! 50% off unlimited learning
Sale ends in
data(cbpp,package="lme4")
cbpp$obs <- factor(seq(nrow(cbpp)))
rt <- lme4::glFormula(cbind(size,incidence-size)~(1|herd)+(1|obs),
data=cbpp,family=binomial)$reTrms
getGrpVar(rt$flist)
Run the code above in your browser using DataLab