X-Git-Url: https://git.auder.net/game/current/gitweb.js?a=blobdiff_plain;f=reports%2Faccuracy.R;h=2f35792228090b423ecdcd29e6934a8d018b0960;hb=1d014a8640a33f16f0d21244a1419134e8553910;hp=d646ae32ef094df7c1829192e57fa180b01165f9;hpb=476a79d4b332d378716e320fdfd95fa3e1d7be9f;p=morpheus.git

diff --git a/reports/accuracy.R b/reports/accuracy.R
index d646ae3..2f35792 100644
--- a/reports/accuracy.R
+++ b/reports/accuracy.R
@@ -12,7 +12,7 @@ optimBeta <- function(N, n, K, p, beta, b, link, ncores)
 				fargs$optargs$M <- M
 				mu <- computeMu(fargs$X, fargs$Y, fargs$optargs)
 				op <- optimParams(K,link,fargs$optargs)
-				x_init <- c( rep(1/K,K-1), as.double(mu), rep(0,K) )
+				x_init <- list(p=rep(1/K,K-1), beta=mu, b=rep(0,K))
 				do.call(rbind, op$run(x_init))
 			},
 			# flexmix