Add R21 PEV profiles

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