Cousera R Programming Assignment2