Week 7. Creating and working with R functions