For Get Data Course

this is run_analysis.r