R/sign.R

sign <- function(x, zero=0){
  s <- (-1*(x<0)+zero*(x==0)+(x>0))
  s
}
joshuaulrich/tmp-ecfun documentation built on July 1, 2019, 12:20 a.m.