library(data.table)
library(mltools)
library(data.table)
library(dplyr)
setwd("C:/Users/s-das/Syncplicity Folders/MyProjects_IMP/MY_Papers_V2/TRB 2021/EScotter_BayesianRule/")
it01 <- fread("EScotter_Fin2.csv")
mn01 <- it01[, c("SEVERITY_CD", "DAY_OF_WK", "LIGHTING_CD", "HWY_TYPE_CD", "WEATHER_CD", "CR_HOUR",
"NUM_VEH")]
mn01 <- mn01 %>% mutate_if(is.character,as.factor)
mn02 <- one_hot(as.data.table(mn01))
head(mn02)## SEVERITY_CD_A SEVERITY_CD_B SEVERITY_CD_C SEVERITY_CD_D SEVERITY_CD_E
## 1: 0 0 1 0 0
## 2: 0 0 0 1 0
## 3: 0 0 0 1 0
## 4: 0 0 1 0 0
## 5: 0 1 0 0 0
## 6: 0 1 0 0 0
## DAY_OF_WK_FR DAY_OF_WK_MO DAY_OF_WK_SA DAY_OF_WK_SU DAY_OF_WK_TH
## 1: 0 0 1 0 0
## 2: 0 0 0 0 0
## 3: 0 0 1 0 0
## 4: 0 0 0 0 0
## 5: 0 0 0 0 0
## 6: 0 0 0 0 0
## DAY_OF_WK_TU DAY_OF_WK_WE LIGHTING_CD_A LIGHTING_CD_B LIGHTING_CD_C
## 1: 0 0 0 0 1
## 2: 1 0 1 0 0
## 3: 0 0 1 0 0
## 4: 0 1 1 0 0
## 5: 1 0 1 0 0
## 6: 1 0 1 0 0
## LIGHTING_CD_D LIGHTING_CD_E LIGHTING_CD_F LIGHTING_CD_Y HWY_TYPE_CD_
## 1: 0 0 0 0 0
## 2: 0 0 0 0 0
## 3: 0 0 0 0 0
## 4: 0 0 0 0 0
## 5: 0 0 0 0 0
## 6: 0 0 0 0 0
## HWY_TYPE_CD_A HWY_TYPE_CD_B HWY_TYPE_CD_C HWY_TYPE_CD_D HWY_TYPE_CD_E
## 1: 0 0 0 0 1
## 2: 0 0 0 1 0
## 3: 0 0 1 0 0
## 4: 0 0 1 0 0
## 5: 0 0 0 0 1
## 6: 0 0 0 0 1
## WEATHER_CD_ WEATHER_CD_A WEATHER_CD_B WEATHER_CD_C WEATHER_CD_D WEATHER_CD_Y
## 1: 0 1 0 0 0 0
## 2: 0 1 0 0 0 0
## 3: 0 1 0 0 0 0
## 4: 0 1 0 0 0 0
## 5: 0 1 0 0 0 0
## 6: 0 1 0 0 0 0
## CR_HOUR NUM_VEH
## 1: 2 2
## 2: 16 2
## 3: 14 1
## 4: 16 2
## 5: 11 2
## 6: 20 2## onehot object with following types:
## |- 5 factors
## |- 2 integers
## Producing matrix with 33 columns## SEVERITY_CD=A SEVERITY_CD=B SEVERITY_CD=C SEVERITY_CD=D SEVERITY_CD=E
## [1,] 0 0 1 0 0
## [2,] 0 0 0 1 0
## [3,] 0 0 0 1 0
## [4,] 0 0 1 0 0
## [5,] 0 1 0 0 0
## [6,] 0 1 0 0 0
## DAY_OF_WK=FR DAY_OF_WK=MO DAY_OF_WK=SA DAY_OF_WK=SU DAY_OF_WK=TH
## [1,] 0 0 1 0 0
## [2,] 0 0 0 0 0
## [3,] 0 0 1 0 0
## [4,] 0 0 0 0 0
## [5,] 0 0 0 0 0
## [6,] 0 0 0 0 0
## DAY_OF_WK=TU DAY_OF_WK=WE LIGHTING_CD=A LIGHTING_CD=B LIGHTING_CD=C
## [1,] 0 0 0 0 1
## [2,] 1 0 1 0 0
## [3,] 0 0 1 0 0
## [4,] 0 1 1 0 0
## [5,] 1 0 1 0 0
## [6,] 1 0 1 0 0
## LIGHTING_CD=D LIGHTING_CD=E LIGHTING_CD=F LIGHTING_CD=Y HWY_TYPE_CD=
## [1,] 0 0 0 0 0
## [2,] 0 0 0 0 0
## [3,] 0 0 0 0 0
## [4,] 0 0 0 0 0
## [5,] 0 0 0 0 0
## [6,] 0 0 0 0 0
## HWY_TYPE_CD=A HWY_TYPE_CD=B HWY_TYPE_CD=C HWY_TYPE_CD=D HWY_TYPE_CD=E
## [1,] 0 0 0 0 1
## [2,] 0 0 0 1 0
## [3,] 0 0 1 0 0
## [4,] 0 0 1 0 0
## [5,] 0 0 0 0 1
## [6,] 0 0 0 0 1
## WEATHER_CD= WEATHER_CD=A WEATHER_CD=B WEATHER_CD=C WEATHER_CD=D
## [1,] 0 1 0 0 0
## [2,] 0 1 0 0 0
## [3,] 0 1 0 0 0
## [4,] 0 1 0 0 0
## [5,] 0 1 0 0 0
## [6,] 0 1 0 0 0
## WEATHER_CD=Y CR_HOUR NUM_VEH
## [1,] 0 2 2
## [2,] 0 16 2
## [3,] 0 14 1
## [4,] 0 16 2
## [5,] 0 11 2
## [6,] 0 20 2