powered by
getGrpVar(x)
assign
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