Thursday afternoon, adding plots to R script, writing