RProgramAssignment3