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