X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=src%2Fadapters%2Fa.EMGrank.c;h=763ff4eca0bad73aab5044aa66cdce4edc993300;hp=f7fc1923d475c326632ce7aeaee3b303393abb12;hb=8e92c49c15bdacebf46190e7c8279bd227873928;hpb=3ec579a0955aca0591a9e5c4d90c50b87f4f4609

diff --git a/src/adapters/a.EMGrank.c b/src/adapters/a.EMGrank.c
index f7fc192..763ff4e 100644
--- a/src/adapters/a.EMGrank.c
+++ b/src/adapters/a.EMGrank.c
@@ -1,6 +1,6 @@
 #include <R.h>
 #include <Rdefines.h>
-#include "sources/EMGLLF.h"
+#include "EMGrank.h"
 
 SEXP EMGLLF(
 	SEXP Pi_,
@@ -16,7 +16,7 @@ SEXP EMGLLF(
 	SEXP dimX = getAttrib(X_, R_DimSymbol);
 	int n = INTEGER(dimX)[0];
 	int p = INTEGER(dimX)[1];
-	SEXP dimRho = getAttrib(Rho_, R_DimSymbol)
+	SEXP dimRho = getAttrib(Rho_, R_DimSymbol);
 	int m = INTEGER(dimRho)[0];
 	int k = INTEGER(dimRho)[2];
 
@@ -46,7 +46,7 @@ SEXP EMGLLF(
 	pDimPhi[0] = p; pDimPhi[1] = m; pDimPhi[2] = k;
 	PROTECT(phi = allocArray(REALSXP, dimPhi));
 	PROTECT(LLF = allocVector(REALSXP, 1));
-	double* pPhi=REAL(phi), pLLF=REAL(LLF);
+	double *pPhi=REAL(phi), *pLLF=REAL(LLF);
 
 	/////////////////////
 	// Call to EMGrank //