add R script
pull request