Week 2 in R programming