tests/testthat/test_sigmoid.R

In bquast/sigmoid: Sigmoid Functions for Machine Learning

library(sigmoid)
x = -5:5
expect_equal(x, sigmoid(sigmoid(x), inverse=TRUE) )
expect_equal(x, sigmoid(sigmoid(x, method='Gompertz'), method='Gompertz', inverse=TRUE) )
expect_equal(c(0,0,0,0,0,0,1,2,3,4,5), sigmoid(x, method='ReLU') )
expect_equal(c(-0.05,-0.04,-0.03,-0.02,-0.01,0,1,2,3,4,5), sigmoid(x, method='leakyReLU') )
expect_equal(0.4054651, logit(0.6) )
expect_equal(c(0.5016788, 0.5045374, 0.5121444, 0.5316895, 0.5776812, 0.6666667, 0.7880584, 0.8934930, 0.9547215, 0.9823316, 0.9933516), softplus_output_to_derivative(softplus(x)), tolerance=0.000001)