X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=src%2Fadapters%2Fa.selectiontotale.c;fp=src%2Fadapters%2Fa.selectiontotale.c;h=3d647fbadedfbbd806e5ae9eba42d868d725b645;hb=8e92c49c15bdacebf46190e7c8279bd227873928;hp=1124d71c881602ed11f7d178257ce61971106cc5;hpb=3ec579a0955aca0591a9e5c4d90c50b87f4f4609;p=valse.git

diff --git a/src/adapters/a.selectiontotale.c b/src/adapters/a.selectiontotale.c
index 1124d71..3d647fb 100644
--- a/src/adapters/a.selectiontotale.c
+++ b/src/adapters/a.selectiontotale.c
@@ -1,6 +1,6 @@
 #include <R.h>
 #include <Rdefines.h>
-#include "sources/EMGLLF.h"
+#include "selectiontotale.h"
 
 SEXP EMGLLF(
 	SEXP phiInit_,
@@ -20,7 +20,7 @@ SEXP EMGLLF(
 	SEXP dimX = getAttrib(X_, R_DimSymbol);
 	int n = INTEGER(dimX)[0];
 	int p = INTEGER(dimX)[1];
-	SEXP dimRho = getAttrib(rhoInit_, R_DimSymbol)
+	SEXP dimRho = getAttrib(rhoInit_, R_DimSymbol);
 	int m = INTEGER(dimRho)[0];
 	int k = INTEGER(dimRho)[2];
 	int L = INTEGER(getAttrib(glambda_, R_LengthSymbol))[0];
@@ -58,7 +58,7 @@ SEXP EMGLLF(
 	PROTECT(A2 = allocArray(REALSXP, dimA));
 	PROTECT(rho = allocArray(REALSXP, dimRho);
 	PROTECT(pi = allocMatrix(REALSXP, k, L));
-	double* pA1=REAL(A1), pA2=REAL(A2), pRho=REAL(rho), pPi=REAL(pi);
+	double *pA1=REAL(A1), *pA2=REAL(A2), *pRho=REAL(rho), *pPi=REAL(pi);
 
 	/////////////////////////////
 	// Call to selectiontotale //