R/sia_sirt_remove_transitive.R

Defines functions sia_sirt_remove_transitive

## File Name: sia_sirt_remove_transitive.R
## File Version: 0.13


#**** remove transitive relations
sia_sirt_remove_transitive <- function(I1){
    I <- ncol(I1)
    diag(I1) <- 0
    BB <- 1
    IS <- I1
    iter <- 0
    while (BB > .0001){
        I0 <- IS
        iter <- iter + 1
        for (ii in 1:I ){
            for (jj in 1:I){
                if (ii!=jj ){
                    if ( sum( IS[ii,] * IS[,jj] ) > 0 ){
                            I1[ii,jj] <- 0
                    }
                }
            }
        }
        IS <- IS + IS %*% I1
        IS <- 1*(IS > 0 )
        BB <- sum( abs( I0 - IS ) )
    }
    return(I1)
}


.sia.remove.transitive <- sia_sirt_remove_transitive
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.