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`))