X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2FEMGrank.R;h=2dc6c374b5e65180fe5f3cc7ef2aae7adbbbde7c;hp=09171ac56976a72b5e10af0bdd863ade4003150d;hb=6775f5b98ffc7eae7ce9d4081b23b39ce66d3c0b;hpb=e9db79707709c10947e89756eb5655c0747a2a1d

diff --git a/pkg/R/EMGrank.R b/pkg/R/EMGrank.R
index 09171ac..2dc6c37 100644
--- a/pkg/R/EMGrank.R
+++ b/pkg/R/EMGrank.R
@@ -30,8 +30,8 @@ EMGrank <- function(Pi, Rho, mini, maxi, X, Y, eps, rank, fast = TRUE)
   # Function in C
   n <- nrow(X)  #nombre d'echantillons
   p <- ncol(X)  #nombre de covariables
-  m <- ncol(Y)  #taille de Y (multivarié)
-  k <- length(Pi)  #nombre de composantes dans le mélange
+  m <- ncol(Y)  #taille de Y (multivarie)
+  k <- length(Pi)  #nombre de composantes dans le melange
   .Call("EMGrank", Pi, Rho, mini, maxi, X, Y, eps, as.integer(rank), phi = double(p * m * k), 
     LLF = double(1), n, p, m, k, PACKAGE = "valse")
 }