Create run_analysis.R

The script to get the tidy data