x_init <- list(p=rep(1/K,K-1), beta=mu, b=rep(0,K))
res2 <- NULL
tryCatch({
res2 <- do.call(rbind, op$run(x_init))
}, error = function(e) {})
res2
x_init <- list(p=rep(1/K,K-1), beta=mu, b=rep(0,K))
res2 <- NULL
tryCatch({
res2 <- do.call(rbind, op$run(x_init))
}, error = function(e) {})
res2