R/f.R

In HSROC: Meta-Analysis of Diagnostic Test Accuracy when Reference Test is Imperfect

f <-
function (a, borne) 
{
    low = borne[1]
    up = borne[2]
    if (a > up) {
        b = up
    }
    else {
        if (a < low) {
            b = low
        }
        else {
            b = a
        }
    }
    return(b)
}