adding pl R script