R programming third week assignment with comments in in the code