Sync R script and output

tidy.data and run_analysis.R