R-programming-assignment2