The Week3 homework of R programming