X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2FEMGLLF.R;h=2b1a0af45cdbb5d573858862e61e7533d035871f;hp=e600032079b475bba29c227093c4d28228db3a34;hb=4fed76cce5e3347a8f82457603d77bf38a02b619;hpb=b716c25e52c64c5d4c2192d3ca68154cd81eb3cf

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")
+}