R programming  assignment 2