123456 |
- # 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")
|