R/pPool.r

Defines functions pPool

Documented in pPool

pPool <- function(p){
    n <- length(p)
    k <- 1 + floor(n / 2)
    pp <- rev(sort(p))
    
    j <- 2:k
    red <- c(1, pp[2 * j - 2])
    
    return(red)
}

Try the selectMeta package in your browser

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

selectMeta documentation built on May 2, 2019, 4:22 a.m.