Update Functions.R