performance code snippets in r