The first R script