X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=R%2FbasicInitParameters.R;h=3583e6829ab721e14b43ab1be4687635a55ec0db;hb=c3bc47052f3ccb659659c59a82e9a99ea842398d;hp=6090d0aa775d393e85d9856602742f826710ae1c;hpb=39046da6016f15d625bd99cf0303ea8beb838c79;p=valse.git

diff --git a/R/basicInitParameters.R b/R/basicInitParameters.R
index 6090d0a..3583e68 100644
--- a/R/basicInitParameters.R
+++ b/R/basicInitParameters.R
@@ -1,3 +1,13 @@
+#-----------------------------------------------------------------------
+#' Initialize the parameters in a basic way (zero for the conditional mean,
+#'	uniform for weights, identity for covariance matrices, and uniformly distributed forthe clustering)
+#' @param n sample size
+#' @param p number of covariates
+#' @param m size of the response
+#' @param k number of clusters
+#' @return list with phiInit, rhoInit,piInit,gamInit
+#' @export
+#-----------------------------------------------------------------------
 basic_Init_Parameters = function(n,p,m,k)
 {
 	phiInit = array(0, dim=c(p,m,k))
@@ -14,5 +24,5 @@ basic_Init_Parameters = function(n,p,m,k)
 		gamInit[i,R[i]] = 0.9
 	gamInit = gamInit/sum(gamInit[1,])
 
-	return (list(phiInit, rhoInit, piInit, gamInit))
+	return (data = list(phiInit = phiInit, rhoInit = rhoInit, piInit = piInit, gamInit = gamInit))
 }