# selectedVariables: list where element j contains vector of selected variables
# in [1,m]
selectedVariables <- lapply(1:p, function(j) {
# from boolean matrix mxk of selected variables obtain the corresponding boolean
# m-vector, and finally return the corresponding indices
# selectedVariables: list where element j contains vector of selected variables
# in [1,m]
selectedVariables <- lapply(1:p, function(j) {
# from boolean matrix mxk of selected variables obtain the corresponding boolean
# m-vector, and finally return the corresponding indices