Compute events averted by increasing the final vaccine coverage
Source:R/events_avertable_by_increasing_coverage.R
compute_events_avertable_by_increasing_coverage.Rd
Compute events averted by increasing the final vaccine coverage
Usage
compute_events_avertable_by_increasing_coverage(
number_of_events,
cumulative_coverage,
vaccine_coverage_increase,
vaccine_effectiveness
)
Value
a list with the new vaccine coverage ("new_vaccine_coverage") and the estimated number of events averted ("nabe")
Examples
data(coverage_and_incidence_mock_data)
data(ve_mock_data)
coverage <- coverage_and_incidence_mock_data$coverage_data
incidence <- coverage_and_incidence_mock_data$incidence_data
vaccine_effectiveness <- ve_mock_data$ve
nabe <- compute_events_avertable_by_increasing_coverage(
number_of_events = incidence$events,
cumulative_coverage = coverage$cumulative_coverage,
vaccine_coverage_increase = 0.1, # 10% increase in final coverage
vaccine_effectiveness = vaccine_effectiveness
)
plot(nabe$new_vaccine_coverage, type = "l",
xlab = "Time", ylab = "Vaccine coverage with 10% increase")
plot(nabe$nabe, type = "l", xlab = "Time", ylab = "Events averted")