testlist <- list(actual = c(8.76806299430363e+72, 2.04059293755452e+64, 0.178177116847344,  -6.11550150033457e+54, 3.10889140326671e-76, 9.99866235837894e-78,  1.91920430800483e+121, -3.22003387135672e+218, -7.7745440414306e-260,  1.31844169044641e-241, -2.30718208949318e+195, -2.22252674690325e-44,  Inf, -4.77221229531325e+270, -31186504995.2091, 1.76382168506642e-64,  1.47131537430244e+109, -3.58210097061132e+274, -4.26901131843099e+253,  2.33593690706686e-71, -1.48588284336095e-142, -1.53239072518596e+123,  NA, 2.75782304029688e-209, -1.20553828803863e-09, 262035160057213,  5.88276150796669e+256, 2.20499863675603e-294, -4.2413462834786e-283,  -3.63301944687929e+138, NaN, 3.19213042274404e+274, 3.4644469843529e-149,  4.72544427025979e+145, NA, 5.43754515757083e-243, -2.13334167614364e+260,  -2.93338245844915e-154, 0), predicted = c(2.85824173290668e-172,  -3.89106238615023e-177, -1.91962983813442e-147, 8.00404942321927e+77,  -4.07607375543572e-265, 1.54109711956219e+306, NA, -4.84452567354747e+281,  NaN, -4.07607375543572e-265, 0))
result <- do.call(ModelMetrics:::mse_,testlist)
str(result)