RProgAssignment2