R prog test for STI