vignettes/Introduction_to_samplePackage.R

## ---- echo = FALSE, message = FALSE--------------------------------------
library(samplePackage)
library(knitr)

## ------------------------------------------------------------------------
con <- bzfile("accident_2013.csv.bz2", "w")
write.csv(accident_2013, con, row.names = FALSE)
close(con)

kable(fars_summarize_years(2013))

## ------------------------------------------------------------------------
con <- bzfile("accident_2013.csv.bz2", "w")
write.csv(accident_2013, con, row.names = FALSE)
close(con)

fars_map_state(23, 2013)

unlink("accident_2013.csv.bz2")
fernandovmacedo/samplePackage documentation built on May 14, 2017, 1:14 a.m.