For R- Programming assignment 2