Added first R scripts
R script additions
R script additions