Useful R code.