User:Jessica A. Bryant/Notebook/Misc. R codes/2011/07