R/dichot.R

In mplex/multiplex: Algebraic Tools for the Analysis of Multiple Social Networks

dichot <-
function (x, c = 1, diag) 
{
    ifelse(missing(diag) == FALSE && isTRUE(diag == FALSE) == 
        TRUE, diag <- FALSE, diag <- TRUE)
    if (isTRUE(diag == TRUE) == FALSE) {
        if (is.na(dim(x)[3]) == TRUE | isTRUE(dim(x)[3] == 1) == 
            TRUE) {
            dg <- diag(x)
        }
        else {
            dg <- list()
            for (i in seq_len(dim(x)[3])) dg[[i]] <- diag(x[, 
                , i])
        }
    }
    else {
        dg <- NULL
    }
    if (isTRUE(0 >= c) == TRUE) {
        x <- replace(x, x >= c, 1L)
        x <- replace(x, x < c, 0L)
    }
    else {
        x <- replace(x, x < c, 0L)
        x <- replace(x, x >= c, 1L)
    }
    if (isTRUE(is.null(dg)) == FALSE) {
        if (is.na(dim(x)[3]) == TRUE | isTRUE(dim(x)[3] == 1) == 
            TRUE) {
            diag(x) <- dg
        }
        else {
            for (i in seq_len(dim(x)[3])) diag(x[, , i]) <- dg[[i]]
        }
        x
    }
    else {
        x
    }
}