library(datasets)
library(data.table)
library(dplyr)
dt <- fread('data/events.agg.csv') %>% mutate(EVTYPE = tolower(EVTYPE))
summary(dt)
## YEAR STATE EVTYPE COUNT
## Min. :1950 Length:17614 Length:17614 Min. : 1.00
## 1st Qu.:1987 Class :character Class :character 1st Qu.: 4.00
## Median :1999 Mode :character Mode :character Median : 12.00
## Mean :1994 Mean : 50.13
## 3rd Qu.:2005 3rd Qu.: 38.00
## Max. :2011 Max. :1794.00
## FATALITIES INJURIES PROPDMG
## Min. : 0.0000 Min. : 0.000 Min. : 0.00
## 1st Qu.: 0.0000 1st Qu.: 0.000 1st Qu.: 0.00
## Median : 0.0000 Median : 0.000 Median : 0.01
## Mean : 0.8422 Mean : 7.917 Mean : 17.58
## 3rd Qu.: 0.0000 3rd Qu.: 1.000 3rd Qu.: 0.89
## Max. :626.0000 Max. :6110.000 Max. :31734.50
## CROPDMG
## Min. : 0.000
## 1st Qu.: 0.000
## Median : 0.000
## Mean : 2.746
## 3rd Qu.: 0.000
## Max. :5000.050