Mark's Useful R Functions