### Name: getGroups.corStruct
### Title: Extract corStruct Groups
### Aliases: getGroups.corStruct
### Keywords: models

### ** Examples

cs1 <- corAR1(form = ~ 1 | Subject)
getGroups(cs1, data = Orthodont)