Assignment 2 of R programming