first R script update