projects
/
valse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
correction testEMGLLF.R
[valse.git]
/
R
/
discardSimilarModels2.R
diff --git
a/R/discardSimilarModels2.R
b/R/discardSimilarModels2.R
index
d620bff
..
b59c1ba
100644
(file)
--- a/
R/discardSimilarModels2.R
+++ b/
R/discardSimilarModels2.R
@@
-4,10
+4,9
@@
#' @param rho covariance matrix
#' @param pi weight parameters
#'
#' @param rho covariance matrix
#' @param pi weight parameters
#'
-#' @return
+#' @return
a list with B1, in, rho, pi
#' @export
#'
#' @export
#'
-#' @examples
discardSimilarModels2 = function(B1,rho,pi)
{ ind = c()
dim_B1 = dim(B1)
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)
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))
}
rho = suppressmodel$rho, pi = suppressmodel$pi))
}