run_analysis.R

my final work for the tidy data!