Add a new lines from week2 on R functions