R/cltoSim.R

Defines functions `cltoSim`

`cltoSim` <-
function(cl){
        n <- length(cl)
        clvec <- c(rep(cl, n))
        clcomp <- rep(cl,each=n)
        matrix((clvec == clcomp)*1, ncol=n)
}

Try the mcclust package in your browser

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

mcclust documentation built on May 2, 2022, 5:05 p.m.