testlist <- list(actual = c(-5.49759886157396e-16, 1.92196185296186e+228,  1.10761853764173e+281, -3.70912885465475e+49, -1.09054430604388e+290,  -1.99756433848654e-90, 9.68846199344415e-103, -7.07224395967804,  NaN, NA, 1.81496589459632e-295, 4.17941182604444e-217, 1.18839818615318e+43,  -5.93276872709426e-141, 2.29770715303059e+94, 1.92769341026023e-246,  2.78385076506174e-280, 5.85878039727844e-18, NaN, -3.29531576802769e+177,  -4.88535780717683e+183, 1.01113012593527e-254, -1.54490640869533e+98,  -1.70337387158625e+258, -4.20214484030624e-204, -6.4420156514695e+128,  -4.19148032794156e+130, NaN, -3.64211369104746e-303, -3.70514534053377e-75,  2.71954677103277e+41, 2.51944953311027e-48, -2.26557411600009e-158,  -3.67064631195525e+138, 1.41953537707204e-72, 1.55026195698968e+190,  -1.17132846976808e-86, 6.02029935056215e-84, 1.03956142683637e+139,  0), predicted = c(1.23093051163149e-214, 3.29199810345546e+135,  1.60929627630811e-25, 9.87610456123268e-98, NA, 2.11312182910124e+204,  1.76881467700406e-297, -2.23171793009991e-269, -4.5922606659974e+285,  5.52108272588413e-182, -2.73158185815052e+250, -2.88933443800461e-68,  -4.71946058474373e-270, NaN, -1.30318585001476e-95, 3.16451415097825e-111,  -1.80572402582456e-36, -Inf, 1.06687537326027e-08, 5.84751928519128e-279,  -8.85326181844959e-17, -2.23171793009991e-269, 8.79415720802711e-210,  -2.13317095655238e+107, 5.21283749466616e-78, -1.48709483014909e+172,  -7.2254794812684e-183, 1.41767130810458e-230, 1.3711725943696e-264,  2.69859877125761e-92, -5.10014726582837e-227, -5.7910579705855e+284,  0))
result <- do.call(ModelMetrics:::rmse_,testlist)
str(result)