Add test for R