-
- init_EMG <- EMGLLF(phiInit1[, , , repet], rhoInit1[, , , repet], piInit1[repet,
- ], gamInit1[, , repet], miniInit, maxiInit, gamma = 1, lambda = 0, X,
- Y, eps = 1e-04, fast)
- LLFEessai <- init_EMG$LLF
- LLFinit1[repet] <- LLFEessai[length(LLFEessai)]
+
+ init_EMG <- EMGLLF(phiInit1[, , , repet], rhoInit1[, , , repet], piInit1[repet, ],
+ gamInit1[, , repet], miniInit, maxiInit, gamma = 1, lambda = 0, X, Y,
+ eps = 1e-04, fast)
+ LLFinit1[[repet]] <- init_EMG$llh