Create run_analysis.R

Creation of the file