my complete source file for the second assignement of R programming course