testlist <- list(actual = c(-3.53938495396173e+230, -8.53148399623711e-265,  1.761752297571e-214, -1.14213717780968e-270, 2.32287663520386e-210,  -1.01592407535968e+106, -2.6458399483776e+54, -6.32999487342889e+127,  -7.38794496948776e-255, -2.14981025618952e+163, -8.97706239773495e-262,  -1.84285901591108e-13, 2.14773379010419e+251, 9.20115306040671e-77,  6.29163836781409e-134, -1.07124816605595e-41, 1.12063241629913e-273,  Inf, -3.06464681834771e-81, 2.88896289642761e-162, -1.05135542882049e-263,  -4.02334604894334e-62, 9.14932325633094e+214, -4.4022422984296e+36,  -3.45842904371787e-218, -5.29973216677461e-218, 1.08367982653258e+129,  2.85618040136115e+291, -1.02124629430794e+299, 7.9477453962201e-159,  -5.29868334113888e-292, 1.06300026355927e+110, 4.91077184338201e+29,  -3.09402604203093e-98, 5.2436502259051e-17, -4.63608721018564e-278,  6.68157131411927, 2.1057962314365e+71, NA, -0.0115126446244907,  -6.76049595185007e+76, -6.72290177895006e+109, -2.79144415973716e-149,  -Inf, 6.5373906751136e-275, -4.97217914254687e-107, -8.28096373916554e+206,  3.32121162524335e-292, -1.00670821721373e-237, -2.20355850031987e-119,  1.82979400509934e+209, -1.48206133634643e-308, -8.14148409661705e-200,  -1.11848662001938e-105, 5.8992572701157e-57, 4.1651972064225e+250,  1.27506997251658e-50, -1.25836349240552e-79, 5.59966174081461e+221,  -2.9902327143571e+298, -9.87351960742676e-28, -31713723680037224,  -4.62466652615621e+262, 2.71357721301193e-09, 3.4449094962034e-256,  -5.93751037806047e-283, 2.30629444397508e-238, 6.45197470083552e-295,  -4.52712294361406e-163, -3.8167722799864e+278, -16589.4493778547,  -2.31631317260416e+200, 2.95847335542945e+120, 1.55054848435809e-225,  -Inf, -7.79703556039088e+62, NA, -4.68935154649132e+62, 2.07588585496574e-205,  0), predicted = c(2.09636556137936e-114, 3.11632972508842e+22,  -8.2769966201013e+269, 6.05684302698132e-257, 5.69284706287222e-149,  3.0439390222178e+105, -Inf, -Inf, 3.72160380450301e-108, 1.33406369194624e-275,  6.55709016513703e-254, -2.35331626642824e-185, -2.43216629983511e-31,  -5.2637898301314e-205, -8.47633044043834e-108, 4.41587160370079e+256,  1.21989682586306e-257, -Inf, -6.28154361350639e+295, NaN, -3.93789776631382e-57,  1.53452023727691e+52, 5.97413837269131e+100, Inf, 3.18648877455873e-249,  1.8681372570761e+167, -2.19382654427223e-267, 0))
result <- do.call(ModelMetrics:::brier_,testlist)
str(result)