Submission_3: Update details on culling protocol.

src/functions.R

@@ -1725,6 +1725,9 @@ CSPZ <- function(x, bans) {
 #'
 #' In addition to standard culling procedure for infected farms.
 #'
+#' Culling, disinfection and repopulation are delayed 4-6 days with respect to
+#' the standard protocol for infected farms.
+#'
 #' @param x data.frame with outbreak information on pig herds. At least cols ID,
 #'   DATE.CONF.
 #' @param wb data.frame with outbreak information on wild boar. At least cols ID,
@@ -1755,9 +1758,9 @@ CSWB <- function(x, wb, sites, dist_culling) {
         st_drop_geometry() %>%
         transmute(
           rowid,
-          culling = DATE.CONF + 6,
-          disinfection = DATE.CONF + 10,
-          repopulation = DATE.CONF + 50
+          culling = DATE.CONF + 1 + 5,
+          disinfection = DATE.CONF + 10 + 5,
+          repopulation = DATE.CONF + 50 + 5
         ),
       by = c(wb_idx = "rowid")
     ) %>%