added R snippets