prepare structure for R package

[valse.git] / src / sources / EMGrank.h

diff --git a/src/sources/EMGrank.h b/src/sources/EMGrank.h
new file mode 100644 (file)
index 0000000..8c0e657
--- /dev/null
+++ b/src/sources/EMGrank.h
@@ -0,0 +1,25 @@
+#ifndef select_EMGrank_H
+#define select_EMGrank_H
+
+#include "ioutils.h"
+
+void EMGrank(
+       // IN parameters
+       const Real* Pi,
+       const Real* Rho,
+       Int mini,    
+       Int maxi,
+       const Real* X,
+       const Real* Y,
+       Real tau,
+       const Int* rank,
+       // OUT parameters
+       Real* phi,
+       Real* LLF,
+       // additional size parameters
+       mwSize n,       
+       mwSize p,
+       mwSize m,
+       mwSize k);
+
+#endif