programming assignment 2 of R programming