X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=pkg%2Fsrc%2Fadapters%2Fa.EMGrank.c;h=8da760d99a2f062e425b23d1ad1e4c5fb7f86451;hb=859c30ec72871f923da0498c14a94e67b0219875;hp=469349c344756a4221444c027ead3b40aef382c6;hpb=1c45d8e4f6fd4209d26709f17a58920218ee828d;p=valse.git

diff --git a/pkg/src/adapters/a.EMGrank.c b/pkg/src/adapters/a.EMGrank.c
index 469349c..8da760d 100644
--- a/pkg/src/adapters/a.EMGrank.c
+++ b/pkg/src/adapters/a.EMGrank.c
@@ -2,6 +2,7 @@
 #include <Rdefines.h>
 #include "EMGrank.h"
 
+// See comments in src/sources/EMGrank.c and R/EMGrank.R (wrapper)
 SEXP EMGrank(
 	SEXP Pi_,
 	SEXP Rho_,
@@ -9,7 +10,7 @@ SEXP EMGrank(
 	SEXP maxi_,
 	SEXP X_,
 	SEXP Y_,
-	SEXP tau_,
+	SEXP eps_,
 	SEXP rank_
 ) {
 	// Get matrices dimensions
@@ -27,7 +28,7 @@ SEXP EMGrank(
 	// get scalar parameters
 	int mini = INTEGER_VALUE(mini_);
 	int maxi = INTEGER_VALUE(maxi_);
-	double tau = NUMERIC_VALUE(tau_);
+	double eps = NUMERIC_VALUE(eps_);
 
 	// Get pointers from SEXP arrays ; WARNING: by columns !
 	double* Pi = REAL(Pi_);
@@ -52,7 +53,7 @@ SEXP EMGrank(
 	// Call to EMGrank //
 	/////////////////////
 
-	EMGrank_core(Pi, Rho, mini, maxi, X, Y, tau, rank,
+	EMGrank_core(Pi, Rho, mini, maxi, X, Y, eps, rank,
 		pPhi,pLLF,
 		n,p,m,k);