R_assign2