https://github.com/cran/EMCluster
Tip revision: 402bcb69315fa9c0ebffd3364b648523abf2b772 authored by Wei-Chen Chen on 05 September 2023, 10:00:02 UTC
version 0.2-15
version 0.2-15
Tip revision: 402bcb6
01_simple.r
### This function utilize init.EM to obtain an initial.
simple.init <- function(x, nclass = 1){
.emc <- .EMControl(short.iter = 1, em.iter = 0)
tmp <- rand.EM(x, nclass, EMC = .emc, stable.solution = FALSE,
min.n.iter = 1)
ret <- list(pi = tmp$pi, Mu = tmp$Mu, LTSigma = tmp$LTSigma)
class(ret) <- "emret"
ret
}