Create R test 1