Updated README and adding R script