Create test.r

adding a testing file