scripts/contact_matrices.R

# remotes::install_github("sbfnk/socialmixr")

library(socialmixr)

m <- contact_matrix(polymod, 
                    countries = "Italy", 
                    age.limits = seq(0, 75, 5))

contact_matrix_IT <- m$matrix

saveRDS(contact_matrix_IT, file.path("data-raw", "contact_matrix_IT.rds"))
lorecatta/seircovid2S documentation built on April 23, 2020, 12:45 a.m.