R programming Week3