### Name: getGroups.lmList
### Title: Extract lmList Object Groups
### Aliases: getGroups.lmList
### Keywords: models

### ** Examples

fm1 <- lmList(distance ~ age | Subject, Orthodont)
getGroups(fm1)