Create run_analysis.R

tested 26/Oct/2014