X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2FEMGLLF_R.R;h=227d80328ad1ff860a9d45fc6b440b341ca114d7;hp=039e2918e5502bb9feff6803fd39ee20c41d76ea;hb=b9b0b72a2c8f7f0d1a3216528aefcec0a92c6c99;hpb=567a7c388285ef17ce1e49d295527937dbfadf66 diff --git a/pkg/R/EMGLLF_R.R b/pkg/R/EMGLLF_R.R index 039e291..227d803 100644 --- a/pkg/R/EMGLLF_R.R +++ b/pkg/R/EMGLLF_R.R @@ -150,7 +150,7 @@ EMGLLF_R = function(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,lambda,X,Y,ta ite = ite+1 } - + affec = apply(gam, 1, which.max) return(list("phi"=phi, "rho"=rho, "pi"=pi, "LLF"=LLF, "S"=S, "affec" = affec )) }