From d9edcd6c1b17155153bb05a4f2274a2da6f2f543 Mon Sep 17 00:00:00 2001
From: Benjamin Auder <benjamin.auder@somewhere>
Date: Mon, 16 Dec 2019 19:55:03 +0100
Subject: [PATCH] Fix M arg list --> vector in OptimParams

---
 pkg/R/optimParams.R | 2 ++
 1 file changed, 2 insertions(+)

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,
-- 
2.44.0