Adding scratchings for the R script to be delivered to Dr. Wiersma