inst/elmNN/R/satlins.R

satlins <-
function(x) {
  y <- ifelse(x >= 1, 1, ifelse(x <= -1, -1, x))
  y
}
mlampros/elmNNRcpp documentation built on Dec. 8, 2022, 8:10 p.m.