doc/fars_vignette.R

In veronicavedovetto/fars: Useful Function for US Fatality Analysis Reporting System

## ---- include = FALSE----------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup---------------------------------------------------------------
library(fars)

## ---- eval=FALSE---------------------------------------------------------
#  install_github("veronicavedovetto/fars", build_vignettes = TRUE)

## ---- eval=FALSE---------------------------------------------------------
#  library(fars)

## ------------------------------------------------------------------------

file2013 <- make_filename(2013, demo = TRUE)
file2013


## ------------------------------------------------------------------------

df2013 <- fars_read(file2013)
head(df2013)

## ------------------------------------------------------------------------

list2013_2014 <- fars_read_years(2013:2014, demo = TRUE)

head(list2013_2014[[1]])

## ------------------------------------------------------------------------

fars_summarize_years(2013:2014, demo = TRUE)


## ------------------------------------------------------------------------

fars_map_state(1, 2013, demo = TRUE)