X-Git-Url: https://git.auder.net/?p=morpheus.git;a=blobdiff_plain;f=pkg%2FR%2FoptimParams.R;h=06d16845d5784e0140fbcb4c255bef2c6196c8c6;hp=85c21e7e696a9bad3c0edbe06f5feb36a952307e;hb=0ad4c8de650e9f27ec3754c9cb9b2a03db5aff24;hpb=cc0418ff24f8b6485a2a553cf97ba8afd4d21a7d

diff --git a/pkg/R/optimParams.R b/pkg/R/optimParams.R
index 85c21e7..06d1684 100644
--- a/pkg/R/optimParams.R
+++ b/pkg/R/optimParams.R
@@ -59,7 +59,7 @@ optimParams = function(K, link=c("logit","probit"), optargs=list())
 
   weights <- optargs$weights
   if (is.null(weights))
-    weights <- rep(1, K)
+    weights <- rep(1, 3)
 
 	# Build and return optimization algorithm object
 	methods::new("OptimParams", "li"=link, "M1"=as.double(M[[1]]),