Rscript and figures

First Task ad Figres for R