Update RMDUP1.r