Random Useful R code