R script added