Improved R script