R code for online classes and messing around