# Dowload data
download.file("https://nzta.govt.nz/assets/Safety/docs/disaggregated-crash-data.zip",
              "disaggregated-crash-data.zip")
unzip("disaggregated-crash-data.zip", "finaldata_201809.csv")
dat <- read.csv("finaldata_201809.csv")
save(dat, file = "crashdata.Rdata")