R-Programming assignment2