Qt:

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

Usage

Qt(tkx, fkx, Pk)

Arguments

tkx
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 (tkx, fkx, Pk) 
{
    n <- nrow(tkx)
    K <- ncol(tkx)
    somme <- 0
    for (i in 1:n) {
        somme <- somme + ((log1p(Pk) + log1p(unlist(fkx[[i]]))) %*% 
            tkx[i, ])
    }
    return(somme)
  }

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