R/closureTransitive.default.R

In parsec: PARtial orders in Socio-EConomics

Defines functions closureTransitive.default

Documented in closureTransitive.default

closureTransitive.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