Just a little fix before testing with JR

mostly a modified R test script