Expand parameter list to include vaccination

expand_params_vax(
  params,
  model_type = c("onedose", "twodose"),
  vax_doses_per_day = 1e+05,
  vax_prop_first_dose = 1,
  vax_efficacy_dose1 = 0.6,
  vax_efficacy_dose2 = 0.9,
  vax_avg_response_time = 14,
  vax_avg_response_time_R = 7,
  vax_alpha_dose1 = 0.5,
  vax_alpha_dose2 = 0.5,
  vax_mu_dose1 = 1,
  vax_mu_dose2 = 1
)

Arguments

params

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

model_type

choose either the one-dose or the two-dose model

vax_doses_per_day

total number of vaccine doses administered per day

vax_prop_first_dose

the proportion of vaccine doses administered per day that are first doses

vax_efficacy_dose1

infection-blocking vaccine efficacy for dose 1

vax_efficacy_dose2

infection-blocking vaccine efficacy for dose 2

vax_avg_response_time

average number of days it takes for a vaccine dose to confer protection for an individual that has never been infected

vax_avg_response_time_R

average number of days it takes for a vaccine dose to confer protection for an individual that has previously been infected (e.g. between being dosed and eliciting the protective immune response)

vax_alpha_dose1

proportion of infections that are asymptomatic in individuals that have received one dose of the vaccine

vax_alpha_dose2

proportion of infections that are asymptomatic in individuals that have received two doses of the vaccine

vax_mu_dose1

proportion of infections that are mild (vs. severe) in individuals that have received one dose of the vaccine

vax_mu_dose2

proportion of infections that are mild (vs. severe) in individuals that have received two doses of the vaccine

Examples

params <- read_params("PHAC.csv")
params_vax <- expand_params_vax(params)