R/rescaleP.R

rescaleP <-
function (pvec, tiny) 
{
    pvec <- ifelse(pvec < tiny, 0, pvec)
    pvec <- pvec/sum(pvec)
    return(pvec)
}

Try the glrt package in your browser

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

glrt documentation built on May 2, 2019, 8:31 a.m.