library(morpheus)
K <- fargs$optargs$K
op <- optimParams(K, fargs$optargs$link, fargs$optargs)
- x_init <- c(rep(1/K,K-1), as.double(fargs$mu), rep(0,K))
+ x_init <- list(p=rep(1/K,K-1), beta=fargs$mu, b=rep(0,K))
do.call(rbind,op$run(x_init))
},
function(fargs) {
best_par <- list()
for (i in 1:fargs$optargs$nstart)
{
- x_init <- c(rep(1/K,K-1), as.double(i*fargs$mu), rep(0,K))
+ x_init <- list(p=rep(1/K,K-1), beta=i*fargs$mu, b=rep(0,K))
par <- op$run(x_init)
val <- op$f( op$linArgs(par) )
if (val < best_val)