change the r code