tk:

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

Usage

tk(fkx, pk)

Arguments

fkx
pk

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 (fkx, pk) 
{
    K <- length(pk)
    n <- length(fkx)
    tk <- matrix(0, ncol = K, nrow = n)
    for (i in 1:n) {
        tk[i, ] <- (as.numeric(unlist(fkx[[i]])) * pk)/(as.numeric(unlist(fkx[[i]])) %*% 
            pk)[1, 1]
    }
    return(tk)
  }

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