Update 1_Function.R