# NOT RUN {
# Loading vaccinated and control populations data with PoD information
data(vaccinated)
data(control)
# Estimating the disease status and case-count efficacy with 95\% confidence interval
set.seed(1)
CT <- ClinicalTrial(vaccinated, control, CI = 0.95)
waldCI(vaccinated, control)
# }
Run the code above in your browser using DataLab