Create run_analysis.R

run_analysis script