#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 ) ]
#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 ) ]