Upload draft run_analysis.R