data-raw/create-polymod-model.R

library(conmat)
set.seed(2025 - 01 - 28 - 1802)
polymod_contact_data <- get_polymod_setting_data()
polymod_survey_data <- get_polymod_population()
polymod_setting_models <- fit_setting_contacts(
  contact_data_list = polymod_contact_data,
  population = polymod_survey_data
)

use_data(polymod_setting_models, compress = "xz", overwrite = TRUE)
njtierney/conmat documentation built on April 17, 2025, 10:27 p.m.