R PAssignment2