testlist <- list(actual = c(-3.99270610112794e+153, -1.81323389543236e+248,  1.09584846347353e-209, 5.40864983026943e+103, 5.04118542984633e-297,  5.45207697503737e+112, 2.52763861762554e-187, 1.93931173124195e-11,  4.6429130561334e-186, 6.52506290035039e-174, -7.7166471298433e+277,  6.77102901705982e-112, -7.54157152057052e+43, -7.46417920436992e-40,  -1.10650047397356e-72, -9.85231241077638e-55, 5.90756319292504e-220,  -3.09463038314995e-151, 1.03104114970605e+164, 3.07178770275539e-19,  -1.43137522876228e-123, 1.03556081660726e+29, NA, -6.08104263043463e+108,  -8.75211454619141e+26, -5.93739966719475e+188, 5.87192338745015e-202,  Inf, -2.97589686248626e+114, -2.47393687226474e-286, -1.22466355193997e-169,  6.64787774547435e+167, -5.8638309871417e+299, 3.80870330726877e-09,  -2.79874875213646e-242, -3.46437320727353e-161, -5.93335081389416e+22,  3.53647468970067e+303, -1.7934292334987e+289, 2.03002562032194e+65,  -1.35583297243753e-219, NA, 3.22889142907543e-24, -5.60034445197582e+180,  6.14479991364841e-226, -3.92933405432056e+204, 5.73355436654709e+296,  2.15036603200209e+45, 1.56854714093523e-146, -2.52706321617113e-298,  -9.87609370290039e-284, 7.82124627885968e+267, 1.77217786585058e-248,  1.16555913662317e-66, 2.22480026078508e+271, -1.20307943463543e+122,  4156444.51731381, -2.2342605808854e-219, 3.06054023477015e+131,  7.51302148207403e-298, 4.58293119298604e-154, -1.12743822854899e-131,  -1.2861048168811e-302, -1.51925517692991e-116, -6.00291094218798e+187,  -2.21752264118158e+85, 1.95110144071299e+63, -1.24278031472496e-05,  -5.65186037314783e-83, -5.89270513254526e-111, -Inf, -2.62039377808006e+121,  -1.26789754752906e+267, -2.93009357925438e+77, -2.12040665940612e+86,  4.41518728699496e-18, 3.27110671602688e+169, -7.35125180273849e-219,  0), predicted = c(NaN, NA, 2.62381897584494e+282, 8.57596247569191e+167,  -0.407938295196415, -Inf))
result <- do.call(ModelMetrics:::rmsle_,testlist)
str(result)