Replace evaluation of character strings w/ functional style
Avoid this!
Try something like this
make_mu_hess_mvnmodchol <- function(j) {
function(y, par, ...) {
mu_hess_mvnmodchol(y, par, j = j)
}
}
k_vec <- seq_len(k)
names(k_vec) <- paste0("mu", k_vec)
rval$hess <- c(
lapply(k_vec, make_mu_hess_mvnmodchol),
lapply(k_vec, make_sig_hess_mvnmodchol)
)