groupwise operations code snippets in r