R/fx.R

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

Defines functions fx

Documented in fx

fx <-
function(Pk,fkx,Y){
   f<-matrix(0, nrow = length(Y) )
   for (i in 1:length(Y)) {
     f[i]<- as.numeric(unlist(fkx[[i]]))%*%Pk
   }
   
   return(f)
 }