Miscellaneous R scripts I have floating around