fixed problem in R code saple in README.md