beginnings of an R script
moar R script