Useful R codes