if (!“datafile.csv.bz2” %in% dir(“./”)) { download.file(“https://d396qusza40orc.cloudfront.net/repdata%2Fdata%2FStormData.csv.bz2”,“datafile.csv.bz2”) }

if(!“weatherdata” %in% ls()) { weatherdata <- read.csv(“datafile.csv.bz2”)

} library(ggplot2) weatherdataclean <- data.frame(weatherdata\(EVTYPE,weatherdata\)FATALITIES, weatherdata\(INJURIES) colnames(weatherdataclean) = c("EVTYPE", "FATALITIES", "INJURIES") damagedataclean <- data.frame(weatherdata\)EVTYPE,weatherdata\(PROPDMG, weatherdata\)PROPDMGEXP, weatherdata\(CROPDMG, weatherdata\)CROPDMGEXP)

colnames(damagedataclean) = c(“EVTYPE”, “PROPDMG”, “PROPDMGEXP”, “CROPDMG”, “CROPDMGEXP”) damagedataclean\(PROPDMGMult <- ifelse (damagedataclean\)PROPDMGEXP == “K”, 1000, ifelse (damagedataclean\(PROPDMGEXP == "M", 1000000, ifelse (damagedataclean\)PROPDMGEXP == “B”, 1000000000, 0)))

damagedataclean\(PROPDMGAMT <- damagedataclean\)PROPDMG*damagedataclean$PROPDMGMult

damagedataclean\(CROPDMGMult <- ifelse (damagedataclean\)CROPDMGEXP == “K”, 1000, ifelse (damagedataclean\(CROPDMGEXP == "M", 1000000, ifelse (damagedataclean\)CROPDMGEXP == “B”, 1000000000, 0)))

damagedataclean\(CROPDMGAMT <- damagedataclean\)CROPDMG*damagedataclean$CROPDMGMult

damagedataclean\(TOTALDMGAMT <- damagedataclean\)PROPDMGAMT+damagedataclean$CROPDMGAMT