Update functions.R

Add a mode function