Create run_analysis.R

This is the R script corresponding to the cleaning peer assessment