R-Programming Assignment