R/unitstep.R

"unitstep" <- function(x) {
  xx <- x
  xx[which(x >= 0)] <- 1
  xx[which(x < 0)] <- 0
  xx
}
glotaran/TIMP documentation built on Feb. 11, 2023, 4:11 a.m.