Ben's week1 Rscript