ProgAssign2forRProgramming