testlist <- list(n_rank = c(-1.92034670361151e-113, -6.15443154814251e+162,  1.40785799082639e-155, -7.87868203010582e-19, -3.31070063280867e-99,  -4.85335248245499e-257, 1.51966264225182e-61, 8.17432333400082e-241,  317406.851453845, -2.195543981083e+39, NaN, NA, 7.73400372856043e-07,  NA, 1.09214599648167e+45, -2.84796524036053e+224, -1.61206476126781e+267,  -8.73589231141394e-191, -2.19569655785413e-245, -1.78230905731622e+177,  -4.14171627070244e+81, -1.95728480198188e-210, 2.0369847923238e+29,  2.00135654859443e+107, 4.46912070744842e+196, 1689929007934.16,  -6.09812461734265e-190, -Inf, 1.19970217980366e+205, 4.60385438088876e-69,  -1.9268903925161e-218, 1.19413992714561e-140, 3.68843282085859e+179,  -8.13374438100587e+269, -2.60986282721909e-97, -6.50928023203299e-18,  -3.18105110235251e+106, -4.70640110714389e-99, -1.18543766955911e+234,  -5.46745810941107e+250, -7.70445988575871e-283, -3.25243566038944e-83,  1.1477620955803e-175, 1.14451552512939e+291, NA, -6.86423442418611e-253,  -4.73950940192684e+210, 5.65491568462447e+45, 2.32391418482505e-128,  -1.76881174968919e+71, 4.32313199714907e+182, -9.48249610478548e-257,  1.43031609136092e-105, -5.19216552610432e-209, 8.59262407416179e-72,  -7.01248512558304e-280, 1.16502697148986e-288, -2.389765936912e-220,  -378933627702666, -7.23864861068203e+23, 1.59091208217459e-236,  0), p = structure(c(7.50431810185686e+174, 1.03766954740053e+304,  3.05234637054252e+293, 1.84347514188579e+185, 1.84386604366699e+286,  1.1505345237479e+247, 3.84402166710253e+293, 1.48296733902473e-79,  7.50718715817066e-285, 1.50139179031446e-232, 7.04915871993185e+275,  2.7384386004662e+266, 6.38025877541189e-185, 2.45988623554357e-221,  2.19073261063414e-172, 1.09044060538147e-303, 1.29859747073037e-91,  4.03165678616518e-267), .Dim = c(2L, 9L)), pi_inv = structure(c(5.44042900253654e+176,  1.73539174949262e+189, 4.8336899419712e+254, 9.18292201337902e-54,  7.64047673655364e+103, 4.8728337122454e+223, 1.732474975029e-166,  1.07039259703948e-85, 5.66999521620015e-44, 1.51236689260741e-229,  1.67236433443797e-192, 0.0610262446971688, 9.49411104179121e+172,  1.60287365823899e+230, 2.17935126486727e-12, 4.49047682643013e-208,  2.10144522147025e+266, 7.10836736446846e-262, 3.37622140984118e-164,  1.25692904099441e-198, 5.24377710086645e-229, 7.59403129308009e+228,  5.04322338129251e-52, 2.65126392855834e-295, 1.56689495260231e-82,  4.08054532810153e+306, 1.15676029224597e-208, 4.12353446048607e+211,  3.25319430614661e+66, 9.77969717558749e-263, 1.04401327325608e-259,  2.7469879648451e-187, 6.02186391229456e+175, 454811.207628307,  9.32564800452343e+249, 2.13574648915123e-54, 7.54396873856746e-47,  1.50626940319047e-292, 6.87567229861341e+180, 1.0272727925837e-239,  7.35957460975884e-278, 2.50318440297805e-236, 3.08257745527541e+303,  5.05319595825942e-60, 9.05883052708074e+264, 3.41317238498978e-299,  7.263700054384e-22, 1.34387091243696e-228, 5.64784912074946e+50,  1.94254820269727e+59, 2.48000737713639e-108, 6.29720745684542e-55,  2.29511651751272e-262, 2.74282800526493e+231, 4.08223130695526e+280,  5.87720340113229e+97, 2.32484611405904e+204, 7.59590500100338e+80,  5.30585685542335e+49, 2.94028730639418e-64, 7.021550851172e+87,  5.64392918680606e-248, 4.19483052212014e-22), .Dim = c(7L, 9L )), ref_order = c(1.33946896120151e-186, -4.4103294323068e+121,  -2.20029320851313e+52, 2.92269174913888e-255, 4.50434477144385e+26,  -1.21562685092046e-217, 6.17908925680833e+25, 7.33514156859516e+105,  4.77018495885161e-162, -6.02046548611551e-13, 9.68269756634908e+162,  -3.79118415962768e-208, -7.17476143029914e+126, -2.2690277330388e+154,  4.30544637602491e+59, -4.4103294323068e+121, 1.36109841242003e+67,  -5.09654151231355e+136, 53041453177187.5, NA, -4.24707306857748e+164,  -1.47260107789321e+234, NA), z = structure(c(2.17327502892589e-17,  4.09327465320316e-54, 1.29424804594925e+298, 5.91060231558652e+200,  3.57002733283419e-289, 6.93244097623478e-128, 3.69763603706597e+172,  8.58503768097826e-29, 4.08677268529311e-98, 1.08842192355917e+146 ), .Dim = c(2L, 5L)))
result <- do.call(PLMIX:::CompRateYpartial,testlist)
str(result)