! 正負の符号を返す

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