X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=R%2FgenerateIOdefault.R;h=3613f2b9b58998386bdb175f3d2d44b0e31729b2;hp=85213cc9e5e4536a60b159b02bcb61dbfb1f1e07;hb=0b216f854a21821f9be375d07c2932b31e227e78;hpb=f2a9120810d7e1e423c7b5c2c4320f4e27221f50

diff --git a/R/generateIOdefault.R b/R/generateIOdefault.R
index 85213cc..3613f2b 100644
--- 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)
   }