Initial R script check-in