Create Run_analysis.R

Script for Run_analysis.R