adding first R script and plot