R/upset.incidence.R

In parsec: PARtial orders in Socio-EConomics

Defines functions upset.incidence

Documented in upset.incidence

upset.incidence <-
function(z, Q=NULL, ...) {
    n <- ifelse(is.logical(Q), sum(Q), length(Q))
    #as.vector(rowSums(z[,Q])>0) # problema con Q scalare
    res <- colSums(matrix(z[Q,], nrow=n))>0
    names(res) <- rownames(z)
    return(res)
}

Try the parsec package in your browser