add Test.R
Merge pull request #1 from xiangdiuxiu/master

add Test.R