From 93c742ea73e47118b0075923456ac3133606a1ce Mon Sep 17 00:00:00 2001 From: Benjamin Auder <benjamin.auder@somewhere> Date: Fri, 3 Nov 2017 09:15:25 +0100 Subject: [PATCH] cosmetics (rename tau to eps everywhere) --- pkg/src/adapters/a.EMGLLF.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pkg/src/adapters/a.EMGLLF.c b/pkg/src/adapters/a.EMGLLF.c index f24cd2a..1503315 100644 --- a/pkg/src/adapters/a.EMGLLF.c +++ b/pkg/src/adapters/a.EMGLLF.c @@ -14,7 +14,7 @@ SEXP EMGLLF( SEXP lambda_, SEXP X_, SEXP Y_, - SEXP tau_ + SEXP eps_ ) { // Get matrices dimensions int n = INTEGER(getAttrib(X_, R_DimSymbol))[0]; @@ -32,7 +32,7 @@ SEXP EMGLLF( int maxi = INTEGER_VALUE(maxi_); double gamma = NUMERIC_VALUE(gamma_); double lambda = NUMERIC_VALUE(lambda_); - double tau = NUMERIC_VALUE(tau_); + double eps = NUMERIC_VALUE(eps_); // Get pointers from SEXP arrays ; WARNING: by columns ! double* phiInit = REAL(phiInit_); @@ -66,7 +66,7 @@ SEXP EMGLLF( // Call to EMGLLF // //////////////////// - EMGLLF_core(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,lambda,X,Y,tau, + EMGLLF_core(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,lambda,X,Y,eps, pPhi,pRho,pPi,pLLF,pS,pAffec, n,p,m,k); -- 2.44.0