# NOT RUN {
## Example 1
data(vaccinated)
data(control)
# Assigning true efficacy
TrueEfficacy <- 0.53
# PoD curve parameters (et50, slope) estimation
params <- PoDEfficacySquaredError(TrueEfficacy, vaccinated, control)
# Assigning incidence rate (observed incidence rate)
IncidenceRate <- 0.2
# pmax estimation
pmax <- PmaxEstimation(IncidenceRate, params, control)
# combining PoD curve parameters
PoDParams <- unlist(c(params, pmax))
# }
Run the code above in your browser using DataLab