R functions Assignment 2. More comments

Assignment 2... more comments