library(dplyr)
library(ggplot2)

Reading in the rds files generated from ebola-outputs repo and dumping them as csv. Will move this to ebola-outputs later.

incid_by_zone <- here::here("data/CaseCounts/drc",
                            "incidence_by_zone.rds") %>%
    readRDS()

readr::write_csv(incid_by_zone$c, here::here("data/CaseCounts/drc",
                                             "21-May-2018.csv"))


annecori/mRIIDSprocessData documentation built on May 29, 2019, 1:16 p.m.