X-Git-Url: https://git.auder.net/?p=morpheus.git;a=blobdiff_plain;f=pkg%2FR%2FoptimParams.R;h=894aebd6dfa90dd49e474e0177baed7e9141bb17;hp=d8e2cf96432dbf5e75dede453c43a44ac097adf7;hb=d9edcd6c1b17155153bb05a4f2274a2da6f2f543;hpb=9ac8ecc09912bba5c6109557ebe20575e49b2870

diff --git a/pkg/R/optimParams.R b/pkg/R/optimParams.R
index d8e2cf9..894aebd 100644
--- 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,