R/unitstep.R

"unitstep" <- function(x) {
  xx <- x
  xx[which(x>=0)] <- 1
  xx[which(x<0)] <- 0 
  xx
}

Try the TIMP package in your browser

Any scripts or data that you put into this service are public.

TIMP documentation built on May 2, 2019, 5:55 p.m.