Update functions.R