Run_analysis.R

Data cleansing