created run_analysis.R

I hope I don't have to resubmit.