fix R

fix R