added two new R snippets