R script changed