chang r to R