R/is.upset.R

In parsec: PARtial orders in Socio-EConomics

Defines functions is.upset

Documented in is.upset

is.upset <-
function(z, Q=1) {
    if(is.numeric(Q)) {
        v <- 1:nrow(z)
        Q <- v %in% Q
    }
    if(is.character(Q))
        Q <- rownames(z) %in% Q
    all(Q == upset(z, Q))
}

Try the parsec package in your browser