add R file
Merge branch 'master' of https://github.com/MichaelJack1960/Clean