updated run_analysis.R to read in some of the data