Create two R functions