R/clustVec2partMat.R

Defines functions clustVec2partMat

Documented in clustVec2partMat

clustVec2partMat <- function(C) {
    labels = unique(C[C != 0])
    if (length(labels) == 0) {
        return(rep(0, length(C)))
    }

    K = max(labels)
    N = length(C)
    U = matrix(FALSE, K, N)
    for (i in 1:N) {
        U[labels[labels == C[i]], i] = TRUE
    }

    if (sum(rowSums(U) == 0) > 0) {
        U = U[ - which(rowSums(U) == 0),]
    }
    return(U)
}

Try the UNCLES package in your browser

Any scripts or data that you put into this service are public.

UNCLES documentation built on May 30, 2017, 2:39 a.m.