R programming assignment 1 functions and additional data

My first R functions