Changes R script