Working on Rpluss_opp_r