edit Storm.R; tidy data generated for Question 1 analysis