Create run_analysis.R

Initial submission. Not very well commented yet.