Added a new R test