control structures code snippets in r