Updated R script and recreated plots