R programming assignment2