added first R script