Create run_analysis.R

The first upload for the project~!