number code snippets in r