From: Benjamin Auder Date: Fri, 3 Nov 2017 08:15:25 +0000 (+0100) Subject: cosmetics (rename tau to eps everywhere) X-Git-Url: https://git.auder.net/img/scripts/%7B%7B%20asset%28%27mixstore/css/pieces/cb.svg?a=commitdiff_plain;h=93c742ea73e47118b0075923456ac3133606a1ce;p=valse.git cosmetics (rename tau to eps everywhere) --- 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);