r, otp test