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

diff --git a/reports/essai16mars.R b/reports/essai16mars.R
index 416f895..59bbb53 100644
--- a/reports/essai16mars.R
+++ b/reports/essai16mars.R
@@ -1,10 +1,15 @@
 p = 10
-q = 15
+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)