RprogAssignment2