X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=pkg%2Fsrc%2Fadapters%2Fa.EMGrank.c;h=8da760d99a2f062e425b23d1ad1e4c5fb7f86451;hb=f32535f2bc8d50470aa87204bbd7971805dbc9ef;hp=b1dad9ba5b02c15f93f9f943d876eb4c24468803;hpb=228ee602a972fcac6177db0d539bf9d0c5fa477f;p=valse.git

diff --git a/pkg/src/adapters/a.EMGrank.c b/pkg/src/adapters/a.EMGrank.c
index b1dad9b..8da760d 100644
--- a/pkg/src/adapters/a.EMGrank.c
+++ b/pkg/src/adapters/a.EMGrank.c
@@ -10,7 +10,7 @@ SEXP EMGrank(
 	SEXP maxi_,
 	SEXP X_,
 	SEXP Y_,
-	SEXP tau_,
+	SEXP eps_,
 	SEXP rank_
 ) {
 	// Get matrices dimensions
@@ -28,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_);
@@ -53,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);