knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(fars)

read 2013 accident data

accident <- fars_read(system.file("extdata", "accident_2013.csv.bz2", package = "fars"))
str(accident)
dim(accident)

create a list of data frames with columns of Month and Year in each

df_list <- fars_read_years(2014)
head(df_list[[1]])

summarize accident by year and month

n_accident <- fars_summarize_years(c(2013,2014))
head(n_accident)

plot accident map for state at a specified year

fars_map_state(1,2014)


ynren1020/fars documentation built on July 16, 2020, 1:56 a.m.