R Programming Assingment 2