RprogrammingAssignment2