R scripts I use from time to time