vignettes/farsdata.R

In englianhu/farsdata: farsdata R Package

## ------------------------------------------------------------------------
library('farsdata')
library('mapdata')
library('lubridate')

## ------------------------------------------------------------------------
list.files(system.file("extdata", package = "farsdata"))

## ------------------------------------------------------------------------
yr <- 2015
make_filename(yr)

## ------------------------------------------------------------------------
fars_read_years(2013)

## ------------------------------------------------------------------------
plot(fars_summarize_years(2015))
fars_summarize_years(c(2015, 2014))

## ------------------------------------------------------------------------
state_num <- 49 # Utah
yr <- 2014
fars_map_state(state_num, yr)