R Programming Assignemnt 2