testlist <- list(actual = c(8.36009774679533e-303, -5.28818625405344e+62, -4.03616076452699e+254, -4.79927499312646e-303, 9.58672935798379e+104, -9.08700957558638e-158, 9.70318231436258e-60, 3.33893798962066e+219, -1.72942610087815e+185, 2.23637648862092e+264, -2.46529749176502e+294, Inf, 8.84214804665441e-208, -5.17769035648423e-90, -7.18800990804362e+128, 6.04209592620769e+40, -1.96406569930562e+198, -1.2110818819525e+41, 3.70734296609447e-91, 2.53137417499117e+130, 7.43460630577161e+22, -3.18549198259457e-173, -3.75166062876222e-259, -1.73383506187765e+92, -5.61153519439103e+79, -5.88634155033379e-221, 6.68645988491158e+299, 2.38774075058276e+117, 1.6106470121058e-296, -4.31378105029911e+102, -8.57697042016844e+248, -2.87465905111189e+179, 1.07969912279279e+250, 5.30904672796232e-65, -2.3582435920755e+116, -1.5711608775603e+187, 1.45025975852116e+101, NaN, -9.68657736134766e-293, -1.41620136612446e-257, -6.45160015841792e+233, -3.5380370059898e+251, 8.87468857606627e+162, 1.77658225763774e-293, 5.02773869828861e-78, 1.61240228137294e+103, 1.26868807555854e-33, -1.28356800522459e+207, -3.7312446366873e+190, -2.94586314671473e-29, 7.27843871544509e+270, 5.16750375056867e-123, 7.75443242486079e-299, 1.24036674156815e+264, -1.19762755376152e-295, -1.24045658475234e+100, 0.000518696497168322, -9.62953043125144e+220, 4.76582598218084e+166, 1.31103502234365e+242, -1.49870110419024e-307, -2.26734346124367e+84, 6.86309891445677e+207, NaN, 5.35003466955688e+148, 4.51944471078592e-07, -6.96799894918011e+172, -46.3093796133108, Inf, -2.08986483334081e-62, 3.63964619397938e-114, -1.13518216831412e-270, 2.12113999471845e+141, -4.89226967174966e-67, -4.56702427149436e-21, -5.82716963794378e+41, 3.01103541894266e+33, -8.42406453098777e+265, 7.98875845863941e-135, 4.67519629299544e+204, -5.5268263653718e-92, -3.65495203444391e+50, 2.1334221500447e-286, -3.30622208914007e+64, 6.13974996038475e-257, -6.20492550749021e-60, 1.93700452153572e-14, -2.52163406595585e-144, 1.60398885219108e+144, 1.48532264041919e-33, -15202152787001286656, 5.58191603059387e+65, 1.74285304475514e-268, 6.84782599831292e-256, -6.06291715561773e-21, -1.07399590899472e+133, 2.61587594339761e-172, 1.15716641586723e-76, 0), predicted = c(NA, 7.23953674976347e+263, 2.57651732561356e+30, -1.44615843524852e-66, 6.53079718026599e+74, -2.63482146677152e+96, 5.01717392386589e+84, -1.46532851518745e-276, -4.98278511538154e-35, -Inf, 3.0693540485973e-238, -1.04823274040405e-22, 1.553581377873e-120, Inf, 2.50736049292094e+48, 1.70906904520097e-126, Inf, -8.4521119369338e-45, -1.44350510665426e+119, 5.08814270677183e+50, -3.71061649820097e+153, -46903225.9479321, 1.75773732933615e+197, 0)) result <- do.call(ModelMetrics:::msle_,testlist) str(result)