From: Benjamin Auder <benjamin.auder@somewhere>
Date: Mon, 16 Dec 2019 18:55:03 +0000 (+0100)
Subject: Fix M arg list --> vector in OptimParams
X-Git-Url: https://git.auder.net/variants/current/doc/css/pieces/%24%7BgetWhatsApp%28link%29%7D?a=commitdiff_plain;h=d9edcd6c1b17155153bb05a4f2274a2da6f2f543;p=morpheus.git

Fix M arg list --> vector in OptimParams
---

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,