In dtkaplan/statPREPpackage: Calculations to support the statPREP tutorials

Creating Births_per_day

require(mosaicData)
require(tidyverse)

Births per day

data(Birthdays, package = "mosaicData")
Births_per_day <- 
  Birthdays %>% 
  group_by(date) %>%
  summarize(nbirths = sum(births)) %>%
  mutate(date = as.Date(date))
save(Births_per_day, file = "../../data/Births_per_day.rda")

Holidays

US_Holidays <- readr::read_csv("http://tiny.cc/dcf/US-Holidays.csv") %>% select(-year)

Get more Holidays from https://gist.github.com/shivaas/4758439

More_holidays <- readr::read_csv("https://gist.githubusercontent.com/shivaas/4758439/raw/b0d3ddec380af69930d0d67a9e0519c047047ff8/US%2520Bank%2520holidays", col_names = FALSE)
names(More_holidays) <- c("index", "date", "holiday")
More_holidays <-
  More_holidays %>% select(-index)

both <- US_Holidays %>% 
  mutate(date = lubridate::dmy(date)) %>% 
  bind_rows(More_holidays) %>%
  filter( !duplicated(date))
US_Holidays <- both

save(US_Holidays, file = "../../data/US_Holidays.rda")

dtkaplan/statPREPpackage documentation built on May 15, 2019, 5:22 p.m.