first R script