testlist <- list(n_rank = c(-1.54743844070436e-116, 1.50483588103137e-264,  -1.82839860962891e+86, -1.64997824217591e+35, 1.41668666564819e+246,  -4.01777753041933e-272, -2.33037366292073e+142, -1.70458035218237e-103,  8.11439641242986e-53, -Inf, -1.21545154066413e+115, Inf, -Inf,  4.67323459059784e-134, -5.13593892916331e+216, 1.19799925031484e-134,  3.6365762348534e+98, 3.27913299273751e-214, -6.20229696892597e-206,  -4.3399862656652e-153, -2.73071152495284e+188, 3.00289384575057e-199,  3.58969775488457e-174, -7.7165654910072e-149, -8.83008956136877e-229,  -1.07132333426288e-135, -7.54987382936298e-80, -6.62988681262031e+93,  -1.0339730140448e-83, 8.57734852567689e-277, 3.10657965493006e+60,  -2113184816.32402, -3.20799593198393e-303, 1.68303548910014e+233,  1.11246579469889e+205, 1.41883756958756e+108, 9.47137364936385e+176,  -1.39200137554755e+270, 1.74683089218034e+289, 1.63442368561616e+302,  -3.43912743268472e+212, -5.13593892916331e+216, -2.21855861814435e+141,  -1.26569042869865e-72, -2.01645941272984e-281, 0), rate = structure(c(7.26939834708228e+50,  3.11564608010653e-254, 1.36465825250808e+102, 1.03914171335045e+216,  6.90144043416912e-286, 1.07056063754674e-192, 2.42709901764457e+167,  5.04110933843492e+117, 1.00446102767174e+270, 2.80999964649429e-276,  1.47132743522664e-276, 1.43034060375033e+238, 7.1969865707135e-102,  1.167744226868e-129, 2.43040446961157e-178, 6.53577275824646e-23,  1.93759957314605e+254, 2.75507385869138e-68, 4.49701710207565e+227,  6.23190868806672e-187, 4.91073705674124e+27, 2.01725630353556e+239,  2.58547427894532e-185, 1.7803604250278e-199, 1.31316148145067e+80,  3.87647011443058, 3.02349944351143e-68, 7.64984465591425e-252,  9.68112679331278e-105, 7.59140807383593e-181, 1.04076398750837e-196,  52047829659887607808, 3.92648523976242e-88, 1.61108348814713e-194,  8.70190915385123e-18, 2.07517043466377e-268, 3.95646067303887e-80,  1.70031054341491e+224, 3.43881443982153e+71, 3.27272167254971e-16,  5.60969872597406e+293, 3.35383046916394e-240), .Dim = 6:7))
result <- do.call(PLMIX:::SimYpsilon,testlist)
str(result)