projects
/
valse.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
610cfd0
)
few updates
author
emilie
<emilie@devijver.org>
Thu, 16 Mar 2017 16:51:37 +0000
(17:51 +0100)
committer
emilie
<emilie@devijver.org>
Thu, 16 Mar 2017 16:51:37 +0000
(17:51 +0100)
pkg/R/selectiontotale.R
patch
|
blob
|
blame
|
history
diff --git
a/pkg/R/selectiontotale.R
b/pkg/R/selectiontotale.R
index
042c70b
..
bfb9325
100644
(file)
--- a/
pkg/R/selectiontotale.R
+++ b/
pkg/R/selectiontotale.R
@@
-40,7
+40,7
@@
selectiontotale = function(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,glambd
selectedVariables[[lambdaIndex]] = sapply(1:p, function(j) {
#from boolean matrix mxk of selected variables obtain the corresponding boolean m-vector,
#and finally return the corresponding indices
selectedVariables[[lambdaIndex]] = sapply(1:p, function(j) {
#from boolean matrix mxk of selected variables obtain the corresponding boolean m-vector,
#and finally return the corresponding indices
- seq_len(m)[ apply( abs(params$phi[j,,]) > thresh, 1, any ) ]
+ c(seq_len(m)[ apply( abs(params$phi[j,,]) > thresh, 1, any ) ], rep(0, m-length(apply( abs(params$phi[j,,]) > thresh, 1, any ) )))
})
Rho[[lambdaIndex]] = params$Rho
Pi[[lambdaIndex]] = params$Pi
})
Rho[[lambdaIndex]] = params$Rho
Pi[[lambdaIndex]] = params$Pi