Create run_analysis.R

This script performs the analysis required.