projects
/
valse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
still some problems with LLF
[valse.git]
/
reports
/
essai16mars.R
diff --git
a/reports/essai16mars.R
b/reports/essai16mars.R
index
416f895
..
59bbb53
100644
(file)
--- a/
reports/essai16mars.R
+++ b/
reports/essai16mars.R
@@
-1,10
+1,15
@@
p = 10
p = 10
-q =
15
+q =
8
k = 2
D = 20
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)
covY = array(dim = c(q,q,k))
covY[,,1] = 0.1*diag(q)