add two R scripts
Merge branch 'master' of github.com:Honglongwu/r_code