Create run_analysis.R

The r script to clean up data