R/approximate.max.R

approximate.max <-
function(x,y, k = 5)
{
  out = ( 1/(1 + exp(-k*(x-y))) )*x + ( 1 - 1/(1 + exp(-k*(x-y))) ) * y
  out
}

Try the RND package in your browser

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

RND documentation built on May 1, 2019, 10:52 p.m.