r example added