données simulées

[valse.git] / R / generateIOdefault.R

diff --git a/R/generateIOdefault.R b/R/generateIOdefault.R
index 85213cc..3613f2b 100644 (file)
--- a/R/generateIOdefault.R
+++ b/R/generateIOdefault.R
@@ -8,11 +8,10 @@
 #-----------------------------------------------------------------------
 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)
   }