`conditional statements` code snippets in r