Locations with Crashes and Operation Speeds

## [1] 5735712      48
## rmc_crash1 <- subset(df_R2, Crash > 0)[!duplicated(subset(df_R2, Crash > 0)[,4]),]
rmc_crash2= df_R2[,-c(1)] %>% group_by(TMC) %>% summarize(Crashes=sum(Crash))

datatable(
  rmc_crash2, extensions = 'Buttons', options = list(
    dom = 'Bfrtip',
    buttons = c('csv', 'excel', 'print')
  )
)

Top 10 High Risk Segments