# Import the age distribution for Greece in 2020:
age_distr <- age_distribution(country = "Greece", year = 2020)
age_mapping <- c(rep("0-39", 8),
rep("40-64", 5),
rep("65+", 3))
data(age_specific_infection_counts)
# Aggregate the IFR:
aggr_age_ifr <- aggregate_ifr_react(age_distr, age_mapping, age_specific_infection_counts)
Run the code above in your browser using DataLab