adding test.r