Fix  typo in R