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

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