From 29589318c4db9841eb951c8a1a4feed4b6cb295e Mon Sep 17 00:00:00 2001 From: boB Rudis Date: Thu, 22 Nov 2018 13:31:23 -0500 Subject: [PATCH] Implemented fix to compensate for MMWRweek's US-centric assumption by bastistician --- R/mmwr-map.r | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/R/mmwr-map.r b/R/mmwr-map.r index 357d7bc..e603509 100644 --- a/R/mmwr-map.r +++ b/R/mmwr-map.r @@ -5,9 +5,10 @@ # @author Jarad Niemi \email{niemi@@iastate.edu} .start_date = function(year) { # Finds start state for this calendar year - jan1 = as.Date(paste(year, '-01-01', sep='')) - wday = as.numeric(MMWRweekday(jan1)) - jan1 - (wday-1) + 7*(wday>4) + # Fix by @bastistician + jan1 <- as.Date(paste0(year, '-01-01')) + wday <- as.numeric(strftime(jan1, "%w")) # Sunday is 0 + jan1 - wday + 7*(wday>3) } # I discovered why 1962!: https://www.cdc.gov/mmwr/preview/mmwrhtml/su6004a9.htm