Cousera course project R programming Assignment3