random R code snippets