sign()

正負の符号を返す

 > sign(c(-1, -9.5, 0, 1, sqrt(3)))
[1] -1 -1  0  1  1