From 6ecab00e158127854e04d8b32ff56619a95172ac Mon Sep 17 00:00:00 2001 From: Lydia Haile Date: Mon, 9 Sep 2024 12:14:04 +0100 Subject: [PATCH] pushed R21 profiles --- R/pev_parameters.R | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) diff --git a/R/pev_parameters.R b/R/pev_parameters.R index a9509f96..b68f02ac 100644 --- a/R/pev_parameters.R +++ b/R/pev_parameters.R @@ -42,6 +42,21 @@ rtss_profile <- create_pev_profile( dl = c(6.30365, 0.396515) # (White MT et al. 2015 Lancet ID) ) +#' @title R21 vaccine profile +#' @description Parameters for a primary dose of R21 for use with the +#' set_mass_pev and set_pev_epi functions +#' @export +r21_profile <- create_pev_profile( + vmax = 0.87, + alpha = 0.91, + beta = 471, + cs = c(9.3199677, 0.8387902), + rho = c(0.8071676, 0.6010363), + ds = c(3.7996007, 0.1618982), # (Schmit + Topazian et al. 2022 Lancet ID) + dl = c(6.2820200, 0.4549185) # (Schmit + Topazian et al. 2022 Lancet ID) +) + + #' @title RTS,S booster vaccine profile #' @description Parameters for a booster dose of RTS,S for use with the #' set_mass_pev and set_pev_epi functions @@ -56,6 +71,20 @@ rtss_booster_profile <- create_pev_profile( dl = c(6.30365, 0.396515) # (White MT et al. 2015 Lancet ID) ) +#' @title R21 booster vaccine profile +#' @description Parameters for a booster dose of R21 for use with the +#' set_mass_pev and set_pev_epi functions +#' @export +r21_booster_profile <- create_pev_profile( + vmax = 0.87, + alpha = 0.91, + beta = 471, + cs = c(9.2372858, 0.7188541), + rho = c(0.07140337, 0.54175154), + ds = c(3.7996007, 0.1618982), # (Schmit + Topazian et al. 2022 Lancet ID) + dl = c(6.2820200, 0.4549185) # (Schmit + Topazian et al. 2022 Lancet ID) +) + #' @title Parameterise a pre-erythrocytic vaccine with an EPI strategy #' #' @description distribute vaccine when an individual becomes a certain