added support_functions.R