Update udf_PSA_velocity.R