- new_EMG = EMGLLF(phiInit1[,,,repet],rhoInit1[,,,repet],piInit1[repet,],gamInit1[,,repet],miniInit,maxiInit,1,0,x,y,tau)
- ##.C("EMGLLF", phiInit = phiInit, rhoInit = rhoInit, ...)
- LLFEessai = new_EMG[[4]]
- LLFinit1[[repet]] = LLFEessai[[length(LLFEessai)]]
+ new_EMG = .Call("EMGLLF",phiInit1[,,,repet],rhoInit1[,,,repet],piInit1[repet,],
+ gamInit1[,,repet],miniInit,maxiInit,1,0,x,y,tau)
+ LLFEessai = new_EMG$LLF
+ LLFinit1[repet] = LLFEessai[length(LLFEessai)]