Added script

run_analyis.R script to produce the tidy data set required in Project