zoo code snippets in r