Run_analysis.R script

Script for class project