projects
/
valse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update Emilie
[valse.git]
/
test
/
script_data.R
diff --git
a/test/script_data.R
b/test/script_data.R
index
102961c
..
1635746
100644
(file)
--- a/
test/script_data.R
+++ b/
test/script_data.R
@@
-10,6
+10,6
@@
Beta[1:4,1:4,1] = 3*diag(4)
Beta[1:4,1:4,2] = -2*diag(4)
Data = generateXY(200, c(0.5,0.5), rep(0,p), Beta, diag(p), covY)
Beta[1:4,1:4,2] = -2*diag(4)
Data = generateXY(200, c(0.5,0.5), rep(0,p), Beta, diag(p), covY)
-#
-Res = valse(Data$X,Data$Y, fast=
FALS
E, plot=FALSE, verbose = TRUE, kmax=3, size_coll_mod = 50, selecMod = "DDSE", mini = 50, maxi=100)
+
+Res = valse(Data$X,Data$Y, fast=
TRU
E, plot=FALSE, verbose = TRUE, kmax=3, size_coll_mod = 50, selecMod = "DDSE", mini = 50, maxi=100)
plot(Res$tableau[,3], -Res$tableau[,4])
plot(Res$tableau[,3], -Res$tableau[,4])