Create run_Analysis.R

Added the main script.