.gitignore

@@ -47,3 +47,8 @@ Session.vim
 # auto-generated tag files
 tags
 
+# ---> Project-specific
+# large data files
+disaggregated-crash-data.zip
+finaldata_201809.csv
+crashdata.Rdata

NZTA-vehicle-crash-data.Rproj

@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX

README.md

@@ -1,3 +1,3 @@
-# NZTA-vehicle-crash-data
+# NZTA vehicle crash data
 
-Analysis of NZTA disaggregated crash data https://nzta.govt.nz/safety/safety-resources/road-safety-information-and-tools/disaggregated-crash-data/
+Analysis of NZTA [disaggregated crash data](https://nzta.govt.nz/safety/safety-resources/road-safety-information-and-tools/disaggregated-crash-data/)

download.R

@@ -0,0 +1,6 @@
+# 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")

expl.R

@@ -0,0 +1,9 @@
+# Exploration on data
+
+# Load data from Rdata file
+load("crashdata.Rdata")
+
+# Alternative way to load data
+#dat <- read.csv("finaldata_201809.csv")
+
+str(dat)