My snippets for R