R programming week 1 assignment