R/transitivity.R

In parsec: Partial Orders in Socio-Economics

Defines functions transitivity

Documented in transitivity

transitivity <-
function(m) {
    r <- nrow(m)
    c <- ncol(m)
    if(r!=c) return(FALSE)
    all(((m %*% m) > 0) <= m)
}

Try the parsec package in your browser