R/transitiveClosure.default.R

In parsec: Partial Orders in Socio-Economics

Defines functions transitiveClosure.default

Documented in transitiveClosure.default

transitiveClosure.default <-
function(m) {
    res <- m
    gk <- m
    n <- dim(m)[1]
    for(k in 2:n) {
        gk <- gk %*% m
        res <- res + gk
    }
    res <- res>0
    return(res)
}

Try the parsec package in your browser