added stormdata.R, cleaned up R code for new Rmd file