R- Programming Assignment 2