project script: run_analysis.r ,getting and cleaning data