Create run_analysis.R

The run_analysis.R  contains the code to perform the analysis.