R programming- assignment 2