prepare wrappers EMGLLF.R --> EMGLLF.c

[valse.git] / pkg / R / EMGLLF.R

diff --git a/pkg/R/EMGLLF.R b/pkg/R/EMGLLF.R
index e600032..2b1a0af 100644 (file)
--- 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")
+}