moving average code snippets in r