Second Assignment Cousera R