Update old_functions.R