Add R test program