# NOT RUN {
data(saliva)
data(tonsils)
data(throat)
### Combine the data sets into a single list
group.data <- list(saliva, throat, tonsils)
xmcupo <- Xmcupo.sevsample(group.data)
xmcupo
# }
Run the code above in your browser using DataLab