edit Storm.R; made summary2 in data frame.