R programming week 2