testlist <- list(par_mat = 2.9775e+108) result <- do.call(BAMBI:::log_const_univm_all,testlist) str(result)