testlist <- list(actual = c(3.94971839884835e-210, 2.4187794944525e+156,  1.02881432805133e-62, -2.4026688329629e+131, -4.60493889383857e-121,  -4.60493889383857e-121, -1.43553300445234e-236, -1.39297363280726e-298,  Inf, -4.60493889383857e-121, 0), cutoff = 6.22930350661641e-05,      predicted = c(6.26614827791889e-262, 5.15518249237245e-281,      8.22816012980368e-109, -6.446759374589e+205, -2.36950827973901e+27,      2.40954229136427e+306, 9.68250741030317e-43, 9.18581042885405e-158,      -5.76411629982161e-235, -Inf, -46339335959389064, -1.5957060101553e-214,      0.00026563220499742, 1.4260120217773e+112, -3.23139802963968e+78,      -4.67075282171535e-104, 4.51323584059887e+206, 1.11776899991667e-202,      9.07395893947828e-05, 7.8761599048883e-151, 9.40631633716355e+89,      -1.89839629725714e-248, 3.39154705512403e-269, 7.6898805841738e-85,      2.8386514778924e+134, 6.38530819240874e+105, -2.4765883416189e+155,      NaN, NaN, -Inf, 4.21387707659247e-175, 4.01087685254139e+286,      2.13618394514836e-160, 1.96948631755741e-202, 4.68780587927592e-24,      1.20743876343664e-266, -5.30405604870376e-232, -1.0819182453504e+71,      -2.97522978119319e+199, -1.78521572744721e+71, 9.95917428808646e+144,      -7.72834623791626e-214, 4.68213683150234e-51, 6.07936223613947e-119,      2.94196116552863e+38, -4.13372133051589e+78, -3.08882617344181e+86,      9.02386855758776e+82, 1.15848978788929e+239, -2.97135141689206e+183,      -2.16640315549688e+39, 1.59310511061619e-236, 1.99441375701029e+80,      2.28343904295918e+198, 8.14546918539096e+197, 8.97311668517918e+248,      -1.52974211062751e-280, -1.43733117611949e+142, 9.82123984293918e-29,      0))
result <- do.call(ModelMetrics:::npv_,testlist)
str(result)