temp/icasualties.R

In hail2thief/ladata: Data Sets for Teaching Data Science

library(tidyverse)

# data
fatal = read_csv("temp/raw-data/casualties.csv") %>%
  select(-state_pop_2010, -nationality) %>%
  mutate(source = factor(source))


# write out
save(fatal, file = "data/fatal.rda")