X-Git-Url: https://git.auder.net/?p=morpheus.git;a=blobdiff_plain;f=reports%2Ftimings.R;h=6d26bc065971aff654c60958262bb66d1f7d9d48;hp=704fd82bd6c17695509b8f7f02ebef86a469e149;hb=5af71d43f3f2dba21c6667939fcff88923af3b7b;hpb=8de2abd4af307b0470c22f87ce99885e2c341c4e

diff --git a/reports/timings.R b/reports/timings.R
index 704fd82..6d26bc0 100644
--- a/reports/timings.R
+++ b/reports/timings.R
@@ -16,8 +16,8 @@ ourOptim <- function(X, Y, K, link)
 {
 	M <- computeMoments(X, Y)
 	mu <- computeMu(X, Y, list(K=K,M=M))
-	x_init = c(1/2, as.double(mu), c(0,0))
-	optimParams(K, link, list(M=M))$run(x_init)
+	x_init = list(p=rep(1/K,K-1), beta=mu, b=rep(0,K))
+	optimParams(X, Y, K, link, M, 1)$run(x_init)
 	NULL
 }