From: Benjamin Auder <benjamin.auder@somewhere>
Date: Sat, 18 Mar 2017 01:42:32 +0000 (+0100)
Subject: prepare wrappers EMGLLF.R --> EMGLLF.c
X-Git-Url: https://git.auder.net/app_dev.php/js/rpsls.js?a=commitdiff_plain;h=4fed76cce5e3347a8f82457603d77bf38a02b619;p=valse.git

prepare wrappers EMGLLF.R --> EMGLLF.c
---

diff --git a/pkg/R/EMGLLF.R b/pkg/R/EMGLLF.R
index e600032..2b1a0af 100644
--- a/pkg/R/EMGLLF.R
+++ b/pkg/R/EMGLLF.R
@@ -1 +1,18 @@
-#TODO: wrapper on C function
+#' EMGLLF
+#'
+#' Description de EMGLLF
+#'
+#' @param phiInit ...
+#'
+#' @return ...
+#'
+#' @examples
+#' ...
+#' ...
+#' @export
+EMGLLF <- function(phiInit, rhoInit, piInit, gamInit,
+	mini, maxi, gamma, lambda, X, Y, tau)
+{
+	.Call("EMGLLF", phiInit, rhoInit, piInit, gamInit,
+		mini, maxi, gamma, lambda, X, Y, tau, PACKAGE="valse")
+}
diff --git a/pkg/R/EMGrank.R b/pkg/R/EMGrank.R
index eaa3246..71f7c5b 100644
--- a/pkg/R/EMGrank.R
+++ b/pkg/R/EMGrank.R
@@ -1 +1,16 @@
-#TODO: wrapper sur fonction C (on a besoin de C pour ça ?!)
+#' EMGrank
+#'
+#' Description de EMGrank
+#'
+#' @param Pi ...
+#'
+#' @return ...
+#'
+#' @examples
+#' ...
+#' ...
+#' @export
+EMGrank <- function(Pi, Rho, mini, maxi, X, Y, tau, rank)
+{
+	.Call("EMGrank", Pi, Rho, mini, maxi, X, Y, tau, rank, PACKAGE="valse")
+}
diff --git a/pkg/src/adapters/a.EMGLLF.c b/pkg/src/adapters/a.EMGLLF.c
index 0df00bd..4ef4396 100644
--- a/pkg/src/adapters/a.EMGLLF.c
+++ b/pkg/src/adapters/a.EMGLLF.c
@@ -2,6 +2,7 @@
 #include <Rdefines.h>
 #include "EMGLLF.h"
 
+// See comments in src/sources/EMGLLF.c and R/EMGLLF.R (wrapper)
 SEXP EMGLLF(
 	SEXP phiInit_,
 	SEXP rhoInit_,
diff --git a/pkg/src/adapters/a.EMGrank.c b/pkg/src/adapters/a.EMGrank.c
index 469349c..b1dad9b 100644
--- a/pkg/src/adapters/a.EMGrank.c
+++ b/pkg/src/adapters/a.EMGrank.c
@@ -2,6 +2,7 @@
 #include <Rdefines.h>
 #include "EMGrank.h"
 
+// See comments in src/sources/EMGrank.c and R/EMGrank.R (wrapper)
 SEXP EMGrank(
 	SEXP Pi_,
 	SEXP Rho_,