projects
/
valse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of auder.net:valse
[valse.git]
/
R
/
main.R
diff --git
a/R/main.R
b/R/main.R
index
eab5e3f
..
9817b00
100644
(file)
--- a/
R/main.R
+++ b/
R/main.R
@@
-39,7
+39,7
@@
SelMix = setRefClass(
# initialisation for the allocations probabilities in each component
tauInit,
# values for the regularization parameter grid
# initialisation for the allocations probabilities in each component
tauInit,
# values for the regularization parameter grid
- gridLambda =
[];
+ gridLambda =
c(),
# je ne crois pas vraiment qu'il faille les mettre en sortie, d'autant plus qu'on construit
# une matrice A1 et A2 pour chaque k, et elles sont grandes, donc ca coute un peu cher ...
A1,
# je ne crois pas vraiment qu'il faille les mettre en sortie, d'autant plus qu'on construit
# une matrice A1 et A2 pour chaque k, et elles sont grandes, donc ca coute un peu cher ...
A1,
@@
-52,7
+52,7
@@
SelMix = setRefClass(
Pi,
#immutable
Pi,
#immutable
- seuil = 1e-15
;
+ seuil = 1e-15
),
methods = list(
),
methods = list(
@@
-100,7
+100,7
@@
SelMix = setRefClass(
"computation of the regularization grid"
#(according to explicit formula given by EM algorithm)
"computation of the regularization grid"
#(according to explicit formula given by EM algorithm)
- gridLambda <<- gri
llel
ambda(sx.phiInit,sx.rhoInit,sx.piInit,sx.tauInit,sx.X,sx.Y,
+ gridLambda <<- gri
dL
ambda(sx.phiInit,sx.rhoInit,sx.piInit,sx.tauInit,sx.X,sx.Y,
sx.gamma,sx.mini,sx.maxi,sx.eps);
},
sx.gamma,sx.mini,sx.maxi,sx.eps);
},