Create run_analysis.R

Please read the read me file for more details