X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2FEMGrank.R;fp=pkg%2FR%2FEMGrank.R;h=4054e25dae40f7f082c55838d6add635be51ef5a;hp=f2bf58e05b50a04e6a9c341dbc78978186cdf0bd;hb=f32535f2bc8d50470aa87204bbd7971805dbc9ef;hpb=7fd371e5317f9c61fe5a32daadbbac1c64b2dd31

diff --git a/pkg/R/EMGrank.R b/pkg/R/EMGrank.R
index f2bf58e..4054e25 100644
--- a/pkg/R/EMGrank.R
+++ b/pkg/R/EMGrank.R
@@ -29,7 +29,7 @@ EMGrank <- function(Pi, Rho, mini, maxi, X, Y, eps, rank, fast = TRUE)
   p <- ncol(X)  #nombre de covariables
   m <- ncol(Y)  #taille de Y (multivarié)
   k <- length(Pi)  #nombre de composantes dans le mélange
-  .Call("EMGrank", Pi, Rho, mini, maxi, X, Y, eps, rank, phi = double(p * m * k), 
+  .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")
 }