R script final commit