ave function code snippets in r