R Programming Assigment 2