##### Lesson 12: Total recall #####

# Setting the working directory 
setwd(“give the path to the folder“)
list.files()

# read the wind storms file # 
storms_data = read.csv("storm_data_search_results.csv",header=T)

summary(storms_data$EVENT_TYPE)

index_high = which(storms_data$EVENT_TYPE=="High Wind")
index_strong = which(storms_data$EVENT_TYPE=="Strong Wind")
index_thunder = which(storms_data$EVENT_TYPE=="Thunderstorm Wind")

index_high_damage = which((storms_data$EVENT_TYPE=="High Wind") &(storms_data$DAMAGE_PROPERTY_NUM>0))
index_strong_damage = which((storms_data$EVENT_TYPE=="Strong Wind") &(storms_data$DAMAGE_PROPERTY_NUM>0))
index_thunder_damage = which((storms_data$EVENT_TYPE=="Thunderstorm Wind") &(storms_data$DAMAGE_PROPERTY_NUM>0))