Assignment 2

R File with the 2 functions