Added R code from @fhr.
Merge pull request #2 from otfrom/master

Adding R code from @fhr.