For R Programming Assigment2