add R analysis test script