Run_Analysis.R

R script to clean the data