Revised R script and re-ran data