Expand parameter list to include age structure

expand_params_age(
  params,
  age_cat = mk_agecats(),
  beta0 = NULL,
  transmissibility = NULL,
  contact_rate_age = NULL,
  Nvec = NULL,
  pmat = NULL,
  balance_warning = TRUE
)

Arguments

params

parameter list (e.g. read in with `read_params()`)

age_cat

vector of age categories

beta0

vector of age-specific beta0 values (if NULL, assume same beta0 for all age groups as already provided in params)

transmissibility

proportion of contacts between S & I that lead to transmission

contact_rate_age

average overall contact rate by age

Nvec

population distribution (as counts); default is uniform

pmat

contact matrix; default is uniform

balance_warning

should a warning about the balance of contacts be provided?

Examples

params <- read_params("PHAC_testify.csv")
params_age <- expand_params_age(params)