Add a reference

epiverse-trace · Oct 2, 2023 · 8f600f0 · 8f600f0
1 parent b0a0c63
commit 8f600f0
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/intervention.R b/R/intervention.R
@@ -30,7 +30,9 @@
 #'
 #' @author James M. Azam
 #' @keywords internal
-intvn_scale_r0 <- function(r0_reduction, offspring_dist, pars_list) {
+#' @references Lloyd-Smith, J., Schreiber, S., Kopp, P. et al. Superspreading
+#' and the effect of individual variation on disease emergence. Nature 438,
+#' 355–359 (2005). \doi{10.1038/nature04153}
 intvn_reduce_mean <- function(intvn_mean_reduction, offspring_dist, pars_list) {
   # Intervention only works for pois and nbinom
   if (!offspring_dist %in% c("pois", "nbinom")) {