for-loop code snippets in r