Create udf_PSA_velocity.R