testlist <- list(par_mat = c(2.4607e+193, 1.0542e-209, -3.4752e-296, -5.1349e+241, 5.8199e-297, -7.8654e+75, 6.0945e-265, -8.609e-201, -1.6426e+100, 2.8196e-70, 6.2932e-251, -3.3668e-105, -1.2124e+177, 1.9757e+250, -1.4029e+120, -6.7955e+202, 6.5609e+88, -1.2176e-104, 2.2253e+279, -7.8969e+28, -1.9019e+112)) result <- do.call(BAMBI:::log_const_vmsin_all,testlist) str(result)