X-Git-Url: https://git.auder.net/doc/html/img/rock_paper_scissors_lizard_spock.gif?a=blobdiff_plain;f=pkg%2FR%2FEMGrank.R;h=3216870f9b4e288259306a9510051285c1f0bc7b;hb=567a7c388285ef17ce1e49d295527937dbfadf66;hp=e44ff7a6ae483ae0b764e9312b69ba583c8cb789;hpb=19041906b8d80eb9a7dac7bffebf3992bcec6ccf;p=valse.git
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é)