Create run_analysis.R 

My run_analysis.R code