R/reflection.R

In pi0: Estimating the Proportion of True Null Hypotheses for FDR

Defines functions reflect fold

Documented in fold reflect

reflect=function(f,...)
{
    function(x,...) ifelse(x>0, f(x,...), f(-x,...))/2
}
fold=function(f,...)
{
    function(x,...) ifelse(x>=0, f(x,...)+f(-x,...), 0)
}

Try the pi0 package in your browser