# NOT RUN {
# }
# NOT RUN {
data(saliva)
data(throat)
data(tonsils)
### Combine the data sets into a single list
group.data <- list(saliva, throat, tonsils)
### Get PI using MLE and MOM with CI
piEsts <- Est.PI(group.data)
mle <- piEsts$MLE
mom <- piEsts$MOM
# }
Run the code above in your browser using DataLab