# NOT RUN {
data(saliva)
data(throat)
data(tonsils)
### Get pi from the dirichlet-multinomial parameters
pi0 <- dirmult(saliva)$pi
### Combine the data sets into a single list
group.data <- list(throat, tonsils)
xmc <- Xmc.sevsample(group.data, pi0)
xmc
# }
Run the code above in your browser using DataLab