RcodeForAssignment2