Sample of some R code I've used for various analyses