R/satlins.R
In elmNN: Implementation of ELM (Extreme Learning Machine ) algorithm for SLFN ( Single Hidden Layer Feedforward Neural Networks )

satlins <-
function(x) {
  y <- ifelse(x >= 1, 1, ifelse(x <= -1, -1, x))
  y
}

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

elmNN documentation built on May 29, 2017, 3:22 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the elmNN package in your browser