Create run_Analysis.R

script for the course project in Getting and Cleaning Data