My first R script