X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=R%2FselectVariables.R;h=3f58ea3544b52ba2a050455eee590c2370fa75f8;hp=e1a4e333e62d6f71d4843cdf6984d4e680194e4e;hb=31463ab809c0195273ff2760606ea65361d721ab;hpb=09ab3c164abb566764e86a175b5973241e708fd6

diff --git a/R/selectVariables.R b/R/selectVariables.R
index e1a4e33..3f58ea3 100644
--- a/R/selectVariables.R
+++ b/R/selectVariables.R
@@ -15,10 +15,11 @@
 #' @param thres	 threshold to consider a coefficient to be equal to 0
 #' @param tau		 threshold to say that EM algorithm has converged
 #'
-#' @return
-#' @export
+#' @return TODO
+#'
+#' @examples TODO
 #'
-#' @examples
+#' @export
 selectVariables <- function(phiInit,rhoInit,piInit,gamInit,
 	mini,maxi,gamma,glambda,X,Y,thres,tau)
 {