Update functions.R

Fixing issue from overwriting functions.R code