R script update