sigma_init:

In SaraTouzani/EM: Algorithme EM ("Espérance-Maximisation")

Usage

sigma_init(data, Y)

Arguments

data
Y

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (data, Y) 
{
    sigma <- as.list(unique(Y))
    j <- 1
    data$class <- Y
    for (i in unique(Y)) {
        Mat_cov <- (cov(data[data$class == i, -match("class", 
            names(data))][, ]))
        sigma[[j]] <- data.frame(MAT = Mat_cov)
        j <- j + 1
    }
    return(sigma)
  }

SaraTouzani/EM documentation built on Dec. 16, 2019, 12:31 a.m.