Create run_analysis.R

Run Analysis script for cleaning data for Programming Assignment