run_analysis.R for Course Proyect