Create run_analysis.R

Please refer to CodeBook.md to understand how to run this code