add my R script