Cousera R-Programming Assignment