X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=reports%2Fessai16mars.R;h=59bbb5386e7b396b759e0c4c53bad657cfa1e0ea;hp=88659ab53be1fa1b8bd243a77193c499c6b87924;hb=f72201cc938d66d8a3bf71f990a34731305a0fa9;hpb=3f3ed99c0d4a42cf7ba87144cb2c6967c9c2fdab

diff --git a/reports/essai16mars.R b/reports/essai16mars.R
index 88659ab..59bbb53 100644
--- a/reports/essai16mars.R
+++ b/reports/essai16mars.R
@@ -3,8 +3,13 @@ q = 8
 k = 2
 D = 20
 
-meanX = rep(0,p)
-covX = 0.1*diag(p)
+meanX = matrix(nrow=p,ncol=k)
+meanX[,1] = rep(0,p)
+meanX[,2] = rep(1,p)
+
+covX = array(dim=c(p,p,k))
+covX[,,1] = 0.1*diag(p)
+covX[,,2] = 0.5*diag(p)
 
 covY = array(dim = c(q,q,k))
 covY[,,1] = 0.1*diag(q)