Create run analysis completed.R

This is the completed version of my "run analysis". it is past the deadline by 18 hours.  But I had to completed it. 
The Holidays and family, just like everyone else.