testlist <- list(actual = c(-2.0392506756364e-211, -9.70668078560152e+172, -2.68954361821213e+307, 7.21527581799982e+174, Inf, -5.12577447076836e+243, -3.20108432537468e+117, 1.94909862701942e-229, -8.45769523088517e-243, -6.76491834380158e-05, -1.66061474358623e+50, -3339306605313.11, 9.85316905527531e-283, 1.09094762876001e+134, 1.90995503141551e-190, -2.61714379603662e-217, 2.35628543759725e-210, -1.58597117984394e-202, 5.24430399856186e+178, -4.01743972094954e-306, 1.68125727364119e-211, -4.22619327658849e+97, -1.46080862550659e-71, NA, -3.84740826791645e-126, 4.47465263807023e-159, 2.45945025484161e-250, 2.33788085746455e-270, -1.58506258527878e-247, 6.70967972677373e+187, 4.17922114148519e-249, -6.79659409771489e-272, -1.42452685601293e-207, 5.94281725658139e+43, 8.68410550559935e+232, 3.04522887832363e-177, 2.83071981946027e+120, -1.38226953007489e+112, 12016218818.852, -2.30782337973458e+199, -3.84724307059528e-31, 1.30358881121917e+193, -1.12340969789311e-189, 1.45935290392194e-107, -3.58309352738041e+39, 2.03928986981244e+85, -0.000251332436862971, 6.46413527522673e-124, -4.34218286209421e-297, 4.99573940163071e+262, -3.79226298133705e+180, -0.0119387983022557, 6.00014390484314e+94, -333408778036642, 9.11028702260853e+297, -6.56503968259503e-198, 0.0455026427154559, 8.19065005335272e+29, 1.03310216360974e+89, 1.31334982273008e-49, 1.06577744906794e+204, NA, -1.45542733368164e-90, 3.03567485527304e+115, -1.1143436968985e+257, 7.50375522611914e+202, -5.94490936521176e+93, 1.04144324111687e-253, 3.21021420782607e-75, -1.38869135832598e+48, -1.26980390056507e+184, -2.31071221343677e+280, -1.09885880946157e-145, 8.65028282556229e+122, 4.23366994357101e-253, 4.30420846862852e-272, -3.87077126692587e+83, -5.84311798409965e-178, 1.64124982487951e-126, -1.89238861445974e-187, 1.46569760569708e+40, -2.6747735796533e-180, NaN, 4.16971160393494e+96, -1.66125422939035e-170, -1.23444236667719e+256, -4.57317597037866e+95, 2.51312185283207e-110, -7.80113544266744e+71, 5.97031482215399e-285, -5.33536363216694e+170, 2.96012186151494e+47, 0), predicted = c(1.5837274408672e-307, -7.69729997443167e-292, -2.76623930134678e-67, 1.33638341608908e-177, 4.65858541766379e+197, -4.53320416322002e+102, 9.44653042936117e+293, -2.82173871066567e+91, -7.54709505481272e-140, 1.76306423771437e+251, Inf, 8.52972001897538e-85, 1.89413103839836e-90, 4.6890273765328e+279, -40.1516566317172, -1.51364476663469e-308, 4.17275320445947e+117, -3.40584311695374e-304, -5.00728868133196e-117, 2.25228297003711e-29, -2.555137587211e+36, -5.68614733049259e+194, -1.98556009405196e-25, 5.17436085698468e+44, Inf, 163612498558167584, 1.0350590129647e-193, -6.79557458142687e-132, Inf, -1.58532576050176e-78, -4.07225200972099e+256, 2.54284314717623e-58, 2.29117467210431e-204, Inf, 3.48515078645366e-145, -9.12991941613928e-204, -1.18455608405132e-279, -1.00249709353323e-234, -2.01833957615173e-127, -6.38491647973066e+244, 1.8535897144133e-08, -6.83139516500773e-135, -1.54637023133088e+188, -1.42190819473766e+170, -3.82658399650315e-218, -1.82724660663699e-216, -1.82710524963672e-131, 0)) result <- do.call(ModelMetrics:::logLoss_,testlist) str(result)