Add first R script