projects
/
morpheus.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug fixes. Seemingly Compute_Omega() is wrong
[morpheus.git]
/
pkg
/
R
/
multiRun.R
diff --git
a/pkg/R/multiRun.R
b/pkg/R/multiRun.R
index
1cebaab
..
8b70d6d
100644
(file)
--- a/
pkg/R/multiRun.R
+++ b/
pkg/R/multiRun.R
@@
-17,7
+17,7
@@
#' @return A list of nf aggregates of N results (matrices).
#'
#' @examples
#' @return A list of nf aggregates of N results (matrices).
#'
#' @examples
-#' \dont
run
{
+#' \dont
test
{
#' β <- matrix(c(1,-2,3,1),ncol=2)
#'
#' # Bootstrap + computeMu, morpheus VS flexmix ; assumes fargs first 3 elts X,Y,K
#' β <- matrix(c(1,-2,3,1),ncol=2)
#'
#' # Bootstrap + computeMu, morpheus VS flexmix ; assumes fargs first 3 elts X,Y,K
@@
-57,8
+57,7
@@
#' library(morpheus)
#' K <- fargs$optargs$K
#' μ <- computeMu(fargs$X, fargs$Y, fargs$optargs)
#' library(morpheus)
#' K <- fargs$optargs$K
#' μ <- computeMu(fargs$X, fargs$Y, fargs$optargs)
-#' V <- list( p=rep(1/K,K-1), β=μ, b=c(0,0) )
-#' optimParams(V,fargs$optargs)$β
+#' optimParams(fargs$K,fargs$link,fargs$optargs)$run(list(β=μ))$β
#' },
#' # flexmix
#' function(fargs) {
#' },
#' # flexmix
#' function(fargs) {
@@
-74,7
+73,8
@@
#' io = generateSampleIO(fargs$n, fargs$p, fargs$β, fargs$b, fargs$optargs$link)
#' fargs$X = io$X
#' fargs$Y = io$Y
#' io = generateSampleIO(fargs$n, fargs$p, fargs$β, fargs$b, fargs$optargs$link)
#' fargs$X = io$X
#' fargs$Y = io$Y
-#' fargs$optargs$K = ncol(fargs$β)
+#' fargs$K = ncol(fargs$β)
+#' fargs$link = fargs$optargs$link
#' fargs$optargs$M = computeMoments(io$X,io$Y)
#' fargs
#' }, N=10, ncores=3)
#' fargs$optargs$M = computeMoments(io$X,io$Y)
#' fargs
#' }, N=10, ncores=3)