R/incidence2cover.incidence.R

In parsec: PARtial orders in Socio-EConomics

Defines functions incidence2cover.incidence

Documented in incidence2cover.incidence

incidence2cover.incidence <-
function(z) {
    n <- dim(z)[1]
    eta <- z - diag(1, n)
    res <- (eta - 1*((eta%*%eta)>0))>0
    class(res) <- "cover"
    return(res)
}

Try the parsec package in your browser