decrement code snippets in r