adding R script and results