testlist <- list(cdf = structure(c(2.7067552008483e-261, 9.57809688104219e-144, 4.11687720623498e-193, 92.4469821158178, 2.47367576465882e+45, 5.33034960164981e-85, 1.24385618344729e-278, 2.56728740138169e+278, 2.77066301308362e-301, 1.85168903778399e-31, 8.21495627276545e+155, 5.40265688588273e-246, 1.02159796095319e+88, 9.91561946475701e-206 ), .Dim = c(2L, 7L)), eps = 1.88543332053526e+140, truth = structure(c(8.26005859850284e+256, 2.63669897955532e-230, 6.53678033253151e-212, 2.18023828872254e-37, 9.450300679107e-292, 1.06162162988402e+221, 4.0179858107477e+49, 3.56832978114956e-217, 2.68356528656694e+291, 4.27304362620284e-190, 2.17129022726651e-225, 60794550286514520064, 6.07005495187331e+165, 3.0149229876437e+168, 6.06789973273126e-309, 9.13881665939099e-267, 1.91996109470682e+129, 6.4253615670686e+281, 2.65744680776879e-199, 5.49384919398969e+206, 1.26029556269253e+211, 8.60944475992626e+160, 4.46992271193937e+256, 3.86044612098004e+98, 1.28354225403287e+36, 1.35373917195194e+296, 2.95326345018363e+28, 1.56358622868726e+87, 4.78820588003709e-120, 1.04187436287413e-227, 2.23029465441719e+253, 8.32467454275696e-132, 1.93533904199808e+211, 1.33210476770916e+76, 2.62842817236538e-05, 6.04870991711789e-116, 2.96671137302279e+21, 4.65418540014563e-92, 2.15087592451271e+219, 1.76931010929884e-264, 6.74843730650657e-95, 1.28989959899672e+272, 2.3386316929094e-285, 6.9126758268112e-283, 5.78320304554875e+225, 2.98824268759862e-112, 2.00317256508585e-247, 4.0222367991857e-15, 2.19732063098747e-12, 1.65341230802519e+179, 1.01027317680064e-26, 1.50746603431412e+214, 2.99228413226058e+102, 3.74757610480047e-195), .Dim = c(9L, 6L )), unique_times = c(-4.90010370525299e+123, 8.38330316529864e+241, -4.34494420596158e-51, 3.96664011418289e+85, -1.10243612010663e+55, -2.36818896188821e-10, 8.99376699084868e+281, 5.10542311685625e-71, -2.7723569862235e-75, NaN, -9.81549654457338e+214, 30.2850350109911, 3.96672442059335e-199, 9.83536915081767e-127, -1.72492252323641e-84, -6.58155464396574e-244, Inf, 4.28087176678176e-27, -2.25187171734763e-33, -5.90823486358105e+39, 1.54966538614707e+198, -Inf, 9.39241523140054e-241, 4.25694661589387e-195, 3.96476792569056e-187, 6.39858226291571e-298, 7.64997549769678e-170, 7.17065640447128e-203, 1.5297041997261e-63, 1.44075898530998e-201, NaN, -9.80807383784117e+70, -2.14112181634507e+78, -2.19091851033912e+52, -2.10137368994552e-291, 1.48962149664336e+156, -1.01729756261079e-111, 2.17163401726186e+102, -5.80523190941133e+75, -2.35227778253516e+176, 1.47646027696489e+28, 5.06682891609311e-130, -7.05078750454354e-237, -1.77013861414127e-110, -1.66014834412068, -1.19196947793918e-23, 5.56721374685553e-143, -2.55345628458309e-156, -3.22876979637366e-90, -4.00409260995687e+180, -5.07262615903976e+264, 3.67616352353505e+242, -1.13761025801454e-69, -1.80321928621007e-249, Inf, 0)) result <- do.call(mlr3proba:::c_score_intslogloss,testlist) str(result)