Add R language test code