testlist <- list(actual = c(-9.24179038164987e-236, -2.23387045729279e-23,  -8.09223975635175e-87, 1.39650696365619e-121, 3.41788068033041e-62,  -2.52158956129077e-173, -3.54707335537753e-33, 2.20098681169411e-230,  5.51547460389225e-28, -Inf, -1.63205199285374e-43, -3.40662108584948e-242,  -1.70913432187023e-299, -7.41669049303852e-144, 6.51060935351057e-139,  8.49897879965343e+251, -3.67678851981598e-140, -4.93651558926745e+59,  -1.56036467326978e-182, -3.03070045997602e+184, -2.83162614070026e+177,  2.84448225086934e+89, -8.01880700553728e+154, 2.19381962170103e+56,  -2.41156856743587e-12, 7.32786017099235e-68, -2.06616258925967e-133,  1.31817291946305e-80, 1.85560434096312e+227, 1.17943169219156e+37,  1.36796777018864e-25, 1.43928321057732e-109, -5.3499584630842e+206,  -Inf, -4.08742488629176e-296, -2.48358006159646e+232, 5.59312146315881e+243,  6.10855817144865e-92, -5.43589351574393e-223, -6.04149052962188e-210,  -5.46804272394514e+165, -3.32220839367967e-74, 2.84448225086934e+89,  1.32785077117894e-124, -1.0429350951638e+45, 6.00812859907714e+176,  -7.1409602585486e-251, -47030593679715147776, -1.69243858088782e-83,  6.95040994018195e-22, 4.09223366133211e-40, 4.48705357171763e-140,  1.01695741667804e+151, 3.47453184132565e-274, -1.57477317901833e-193,  5.92091157854538e-13, 2.39623565699825e-05, 6.36241709553303e-09,  3.57912031754134e+162, 3.15704513119961e+116, 3.53422587217071e-149,  -2.39742633579895e+184, -8842771654368829440, 1.94003983651803e-251,  4.60658765987362e-92, -1.01082546864771e+192, -3.86869755605552e-110,  -Inf, -3.25509817012396e-237, -2.11375180238076e+88, -4.52432408109137e-91,  2.47628880338606e+127, 1.6853544631611e+74, 3.55475707482716e-193,  1.16272042779402e-201, -5.35507345490001e+298, -6.44397471163171e-144,  2.23021502203391e+241, -2.33521944910929e-208, 3.10088840139995e+259,  -5.44040587858764e-176, 3.21352984612375e-199, 2182089.35018006,  -1.82191838361049e-104, -6.69527104162823e-16, 3.95413641126535e-84,  -1.50586609686565e-132, 1.60068403334326e-290, -2.29409734663428e+201,  -5.55293054990923e+175, -5.63860031043246e+203, 0), predicted = c(-Inf,  Inf, -7.85419342349143e+161, 1.54999381460056e-30, Inf))
result <- do.call(ModelMetrics:::mae_,testlist)
str(result)