outages_index <- which(hurricanes[,4] > 25000)
outages_index
over_25000_outages <- hurricanes[outages_index,]
over_25000_outages