RProgrammingAssignment2