Various scripts as I learn the intricacies of R