adding test.R