projects
/
morpheus.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Fix M arg list --> vector in OptimParams
[morpheus.git]
/
pkg
/
R
/
optimParams.R
diff --git
a/pkg/R/optimParams.R
b/pkg/R/optimParams.R
index
d8e2cf9
..
894aebd
100644
(file)
--- a/
pkg/R/optimParams.R
+++ b/
pkg/R/optimParams.R
@@
-51,6
+51,8
@@
optimParams <- function(X, Y, K, link=c("logit","probit"), M=NULL)
M3 <- as.double(Mtmp[[3]])
M <- c(M1, M2, M3)
}
+ else
+ M <- c(M[[1]], M[[2]], M[[3]])
# Build and return optimization algorithm object
methods::new("OptimParams", "li"=link, "X"=X,