library(lme4)
data(guImmun)
# This returns an object of class glmm
fm = GLMM(immun ~ kid2p + mom25p + ord + ethn +
momEd + husEd + momWork + rural + pcInd81,
data = guImmun, family = binomial,
random = ~1|comm/mom)
fm
Run the code above in your browser using DataLab