4 changed files with 37 additions and 25 deletions
@ -0,0 +1,31 @@ |
|||
# THIS IS NOT EXPORTED FROM MMWRweek but I need it |
|||
# Find start date for a calendar year |
|||
# |
|||
# Finds the state date given a numeric calendar year |
|||
# @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) |
|||
} |
|||
|
|||
# I discovered why 1962!: https://www.cdc.gov/mmwr/preview/mmwrhtml/su6004a9.htm |
|||
.tmp <- lapply(1962:2050, .start_date) |
|||
|
|||
mapply(function(.x, .y) { |
|||
data_frame( |
|||
wk_start = seq(.tmp[[.x]], .tmp[[.y]], "1 week"), |
|||
wk_end = wk_start + 6, |
|||
year_wk_num = 1:length(wk_start) |
|||
) -> tmp |
|||
tmp[-nrow(tmp),] |
|||
}, 1:(length(.tmp)-1), 2:length(.tmp), SIMPLIFY=FALSE) -> mmwrid_map |
|||
|
|||
mmwrid_map <- Reduce(rbind.data.frame, mmwrid_map) |
|||
mmwrid_map$mmwrid <- 1:nrow(mmwrid_map) |
|||
|
|||
#' @title MMWR ID to Calendar Mappings |
|||
#' @name mmwrid_map |
|||
#' @export |
|||
NULL |
@ -0,0 +1,5 @@ |
|||
% Generated by roxygen2: do not edit by hand |
|||
% Please edit documentation in R/mmwr-map.r |
|||
\name{mmwrid_map} |
|||
\alias{mmwrid_map} |
|||
\title{MMWR ID to Calendar Mappings} |
Loading…
Reference in new issue