Adding changed R script.