Scales vector to mean 0 variance 1 unless input standard deviation is 0 in which case original vector is returned
scale_vec(x)
x
Input vector to scale
Scaled vector