Create run_analysis.R

Project is finished