conmat-naming-list

library(conmat)
library(socialmixr)
library(tidyverse)

countries_of_interest <- c("Italy", "Spain")
list_countries <- map(countries_of_interest,
    \(x) wpp_age(x, years = 2015))

list_conmat_pop <- map(
  .x = list_countries,
  .f = function(x) as_conmat_population(x, 
                                        age = lower.age.limit,
                                        population = population)
) %>% 
  set_names(countries_of_interest)

new_age_breaks <- c(seq(0, 80, by = 5), Inf)

list_contact_matrices <- map(
  .x = list_conmat_pop,
  .f = function(x) extrapolate_polymod(x,
                                       age_breaks = new_age_breaks)
) %>% 
  set_names(countries_of_interest)

list_contact_matrices$Italy$home
list_contact_matrices$Italy$work