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

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