R-Programming Assignment1