# NOT RUN {
ngrps(factor(seq(1,10,2)))
ngrps(lmer(Reaction ~ 1|Subject, sleepstudy))
## A named vector if there's more than one grouping factor :
ngrps(lmer(strength ~ (1|batch/cask), Pastes))
## cask:batch      batch
##         30         10
methods(ngrps) # -> "factor" and "merMod"
# }
Run the code above in your browser using DataLab