test script using R