testlist <- list(cdf = structure(c(3.92490575466775e+23, 1.088972977989e-267,  1.50547751900214e-244, 1.03051475102174e-172, 9.3688553533181e+301,  5.40069180607992e+60, 3.91191077101554e+286, 6.57733948268083e-28,  4.58605547066925e+260), .Dim = c(3L, 3L)), power = 487640370L,      truth = c(NaN, 6.25416909607637e+131, NA, NA, -1736575755.73813,      -2.4221505117671e-203, 0), unique_times = c(-4.67768840413022e-38,      -1.93608903583265e+69, -6.67843363246242e+289, 2.15863436584535e-86,      3.03038832769206e-217, 4.36164001339137e+281, -7.08997572393502e-164,      -8.93572063689565e-69, 5.68083219348356e+153, 3.03038832769206e-217,      -5.19267073358467e+73, -Inf, 1.20956093476473e-23, 1.00344864378514e+95,      1.1715931179454e+77, 3.03038832769206e-217, -6.54316544569166e-132,      3.66738171969955e-219, -1.63162671726319e+103, 1.27777336702928e-30,      8.06165444146853e+216, 0))
result <- do.call(mlr3proba:::c_score_graf_schmid,testlist)
str(result)