Junk I am working on to learn R