Create run_analysis.R

The code with the required functions