R_code_snippets