added new r nsippets