R/REFSTD_1.R

REFSTD_1 <-
function (rs, n, t) 
{
    if (rs[[1]] == 1) {
        x = t
    }
    else {
        x = n
    }
    return(x)
}

Try the HSROC package in your browser

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

HSROC documentation built on Sept. 19, 2019, 9:05 a.m.