Update R/create.R

Co-authored-by: Sebastian Funk <[email protected]>
epiforecasts · Jan 8, 2024 · 7f34846 · 7f34846
1 parent cae3465
commit 7f34846
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/create.R b/R/create.R
@@ -49,7 +49,9 @@ create_clean_reported_cases <- function(reported_cases, horizon,
       date >= min(date[confirm[!is.na(confirm)] > 0])
     ]
   }
-  # Calculate the 7-day moving average.
+  # Calculate `average_7_day` which for rows with `confirm == 0`
+  # (the only instance where this is being used) equates to the 7-day
+  # right-aligned moving average at the previous data point.
   reported_cases <-
     reported_cases[
       ,