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
nae <- compute_events_averted_by_vaccination(
number_of_events = incidence$events,
cumulative_coverage = coverage$cumulative_coverage,
vaccine_effectiveness = vaccine_effectiveness
)
nnv_machado <- compute_number_needed_to_vaccinate_machado(
number_of_events = incidence$events,
number_of_events_averted = nae,
population_size = 1234,
vaccine_effectiveness = vaccine_effectiveness
)
nnv_machado
Run the code above in your browser using DataLab