corrected typo in R source