X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=R%2FdiscardSimilarModels2.R;h=b59c1ba601dea29236ed6f3e83952733a43b6631;hp=d620bffb7a89e94a645c1769e46f7ebe140c1698;hb=f2a9120810d7e1e423c7b5c2c4320f4e27221f50;hpb=d1531659214edd6eaef0ac9ec835455614bba16c

diff --git a/R/discardSimilarModels2.R b/R/discardSimilarModels2.R
index d620bff..b59c1ba 100644
--- a/R/discardSimilarModels2.R
+++ b/R/discardSimilarModels2.R
@@ -4,10 +4,9 @@
 #' @param rho covariance matrix
 #' @param pi weight parameters
 #'
-#' @return
+#' @return a list with B1, in, rho, pi
 #' @export
 #'
-#' @examples
 discardSimilarModels2 = function(B1,rho,pi)
 {	ind = c()
 	dim_B1 = dim(B1)
@@ -16,6 +15,6 @@ discardSimilarModels2 = function(B1,rho,pi)
 	glambda = rep(0,sizeLambda)
 
 	suppressmodel = discardSimilarModels(B1,B2,glambda,rho,pi)
-	return (list(B1 = suppressmodel$B1, ind = suppressmodel$B2,
+	return (list(B1 = suppressmodel$B1, ind = suppressmodel$ind,
 		rho = suppressmodel$rho, pi = suppressmodel$pi))
 }