Create run_analysis.R

This file contains the code for extracting the data