R programming week2 task