# Exploration on data dat <- read.csv(unzip("disaggregated-crash-data.zip", "finaldata_201809.csv")) str(dat)