X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=R%2FgenerateIOdefault.R;h=b0d748ae4e5955c54ccb4a03e6819ae92b299463;hb=c3bc47052f3ccb659659c59a82e9a99ea842398d;hp=fc01cd811850073cf04498706d7cc5a465a0f9bd;hpb=39046da6016f15d625bd99cf0303ea8beb838c79;p=valse.git

diff --git a/R/generateIOdefault.R b/R/generateIOdefault.R
index fc01cd8..b0d748a 100644
--- a/R/generateIOdefault.R
+++ b/R/generateIOdefault.R
@@ -1,10 +1,17 @@
+#' Generate a sample of (X,Y) of size n with default values
+#' @param n sample size
+#' @param p number of covariates
+#' @param m size of the response
+#' @param k number of clusters
+#' @return list with X and Y
+#' @export
+#-----------------------------------------------------------------------
 generateIOdefault = function(n, p, m, k)
 {
-	covX = array(0, dim=c(p,p,k))
+	covX = diag(p)
 	covY = array(0, dim=c(m,m,k))
 	for(r in 1:k)
 	{
-		covX[,,r] = diag(p)
 		covY[,,r] = diag(m)
 	}