X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2FEMGrank.R;h=3216870f9b4e288259306a9510051285c1f0bc7b;hp=e44ff7a6ae483ae0b764e9312b69ba583c8cb789;hb=567a7c388285ef17ce1e49d295527937dbfadf66;hpb=19041906b8d80eb9a7dac7bffebf3992bcec6ccf

diff --git a/pkg/R/EMGrank.R b/pkg/R/EMGrank.R
index e44ff7a..3216870 100644
--- a/pkg/R/EMGrank.R
+++ b/pkg/R/EMGrank.R
@@ -19,6 +19,9 @@
 #' @export
 EMGrank <- function(Pi, Rho, mini, maxi, X, Y, tau, rank)
 {
+	#TEMPORARY: use R version
+	return (EMGrank_R(Pi, Rho, mini, maxi, X, Y, tau, rank))
+
 	n = nrow(X) #nombre d'echantillons
 	p = ncol(X) #nombre de covariables
 	m = ncol(Y) #taille de Y (multivarié)