Adding run_analysis.R template