Created new R test script