run_analysis.R added

run_analysis.R added