Create run_analysis.R

Run_analysis script.