Added scatterplots to R script