R: Add embedded method