added README and R code
added README and R code