Add R method