| 1 | #' Similar to discardSimilarModels, for Lasso-rank procedure (focus on columns) |
| 2 | #' |
| 3 | #' @param B1 array of relevant coefficients (of size p*m*length(gridlambda)) |
| 4 | #' @param rho covariance matrix |
| 5 | #' @param pi weight parameters |
| 6 | #' |
| 7 | #' @return |
| 8 | #' @export |
| 9 | #' |
| 10 | #' @examples |
| 11 | discardSimilarModels2 = function(B1,rho,pi) |
| 12 | { ind = c() |
| 13 | dim_B1 = dim(B1) |
| 14 | B2 = array(0,dim=c(dim_B1[1],dim_B1[2],dim_B1[3])) |
| 15 | sizeLambda=dim_B1[3] |
| 16 | glambda = rep(0,sizeLambda) |
| 17 | |
| 18 | suppressmodel = discardSimilarModels(B1,B2,glambda,rho,pi) |
| 19 | return (list(B1 = suppressmodel$B1, ind = suppressmodel$B2, |
| 20 | rho = suppressmodel$rho, pi = suppressmodel$pi)) |
| 21 | } |