R/downset.incidence.R

Defines functions downset.incidence

Documented in downset.incidence

downset.incidence <-
function(z, Q=NULL, ...) {
    n <- ifelse(is.logical(Q), sum(Q), length(Q))
    res <- rowSums(matrix(z[,Q], ncol=n))>0
    names(res) <- colnames(z)
    return(res)
}

Try the parsec package in your browser

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

parsec documentation built on May 2, 2019, 6:08 p.m.