modifications (probably pointless, as the date is missing from at least one other dataset)

dataImport.R

@@ -1,3 +1,11 @@
 library(readxl)
 RAKETE_TOR <- read_excel("data/170202 RAKETE 16 11336 TOR xlsx.xlsx",
                          skip = 1)
+RAKETE_TOR$`Incident Time` <- sapply(strsplit(as.character(RAKETE_TOR$`Incident Time`), ' '), function(x) {
+  x[2]
+})
+
+RAKETE_TOR$`Incident Day` <- as.numeric(substr(RAKETE_TOR$`Incident ID`, 5, 6))
+
+RAKETE_TOR$TimeStamp <- as.POSIXct(sprintf("%d-%d-%d %s", RAKETE_TOR$Year, RAKETE_TOR$Month, 
+                   RAKETE_TOR$`Incident Day`, RAKETE_TOR$`Incident Time`))