testlist <- list(obs = structure(c(3.08153749270695e+268, 1.32332197349703e-190, 6.23082114520947e+203, 9.01415061179113e+249, 6.540706787122e+292, 7.63830778632796e+257, 2.90621696014731e+62, 1.9540758279048e-149, 6.19416163599636e+214, 1.4199704815665e-87, 5.78653749361182e+183, 3.39234018922553e-20, 1.22796631857849e+58, 2.33653045006629e+267, 4.62932088456384e+87, 2.53306789265624e+161, 2.45556598327364e-293, 1.64832130529754e-151, 2.52593598835977e-54, 1.5076992607463e-192, 3.18661909399991e+231, 1.27875951995631e+224, 3.9128738430199e-156, 1.3827720934642e-193, 1.08209334090818e+233, 4.71308465154339e+168, 8.20755397753443e+116), .Dim = c(3L, 9L)), pi0 = c(NaN, -8.9231028478417e-173, -4.41585233142658e-96, -Inf, 6.0064759730143e+175, 750701650.322887, NaN, -3.58475281651806e+84, 2.22334770756687e-45, -5.50215500182659e+194, NaN, -4.83955833646043e-88, -8.60866097526079e+136, 1.11577179334546e-132, 0)) result <- do.call(rankdist:::FindV,testlist) str(result)