projects
/
morpheus.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove weights for now; planning generalization with matrix W
[morpheus.git]
/
pkg
/
R
/
multiRun.R
diff --git
a/pkg/R/multiRun.R
b/pkg/R/multiRun.R
index
fefdd34
..
8b70d6d
100644
(file)
--- a/
pkg/R/multiRun.R
+++ b/
pkg/R/multiRun.R
@@
-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)