R/min.element.R

min.element <-
function(u,v)

{

k=ceiling(sign(u-v)/2+0.1)

return(u*(1-k)+v*k)

}

Try the TDCor package in your browser

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

TDCor documentation built on May 2, 2019, 3:41 p.m.