powered by
sign
Note that sign does not operate on complex vectors.
signp(x)
signp(-2:3)# -1 -1 1 1 1 1 (m <- matrix(rnorm(9),3,3)) m %*% diag(signp(diag(m)))
Run the code above in your browser using DataLab