R/REFSTD_4.R

REFSTD_4 <-
function (rs, n.sample, n_rs) 
{
    if (rs[[1]] == 1) {
        x = rep(1, n_rs)
    }
    else {
        x = rep(1:rs[[1]], n_rs)
    }
    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.