R/emf.rna.func.tanh.R

In elthonf/Rna-em-R:

emf.rna.func.tanh <- function (x){
    #Tangene Hiperbolica
    #   J = SIGMOID(z) computes the sigmoid of z.

    g = ( exp(x) - exp(-x) ) / ( exp(x) + exp(-x))

    return (g)
}