Random useful R scripts