Update functions.R

Removing test call to function