Modified weather.R and add Storm_data.csv