Data_Science R Programming Assigment 2 final