X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2FEMGLLF.R;h=5484706995a58541c2a95c237ad8cb4d6d1a1eb9;hp=7d9ee776ccce08d21a4e65e870d0d435ea5b5237;hb=567a7c388285ef17ce1e49d295527937dbfadf66;hpb=19041906b8d80eb9a7dac7bffebf3992bcec6ccf

diff --git a/pkg/R/EMGLLF.R b/pkg/R/EMGLLF.R
index 7d9ee77..5484706 100644
--- a/pkg/R/EMGLLF.R
+++ b/pkg/R/EMGLLF.R
@@ -25,6 +25,9 @@
 EMGLLF <- function(phiInit, rhoInit, piInit, gamInit,
 	mini, maxi, gamma, lambda, X, Y, tau)
 {
+	#TEMPORARY: use R version
+	return (EMGLLF_R(phiInit, rhoInit, piInit, gamInit,mini, maxi, gamma, lambda, X, Y, tau))
+
 	n = nrow(X) #nombre d'echantillons
 	p = ncol(X) #nombre de covariables
 	m = ncol(Y) #taille de Y (multivarié)