testlist <- list(n_rank = c(1653275697L, -257517720L, 1019804392L, 1718520330L,  -1590018463L, 110457009L, 1092020363L, 1263006637L, -772809023L,  -1770706478L, 1042528932L, -1840992717L, 2129433989L, -2130364733L,  454970983L, 1698763831L, 838072519L, 1747098022L, 1163152087L,  -1728574697L, -442459034L, -1512953407L, -243783594L, -1187213846L,  797356440L, -1471463699L, -1618361033L, -2117054874L, 1894436117L,  -1107896658L, 1862140968L, 999428714L, NA, 255962542L, NA, 1110749874L,  511690971L, 1973324260L, -1651634984L, 538853944L, -498730767L,  -2035966128L, 411409242L, -1186132521L, -858410174L, 1933321744L,  -902633238L, 1345004083L, 1880761590L, -1060878632L, 1239495170L,  792713723L, 344735112L, -916219757L, -1786675482L, -1398793956L,  -1153625477L, 22565706L, 965037160L, -987339559L), pi_inv = structure(c(1.43654324214474e+290,  4.20467688873771e+127, 1.79709295332154e+68, 2.20774667769036e-18,  3.58453321447424e-230, 264258754.740882, 4.26358494293844e+202,  7.3772116950442e+243, 1.86749352721733e-91), .Dim = c(3L, 3L)),      rate0 = c(2.54316971420937e+124, -5.7303849214936e-242, 2.02477930118874e-165,      -2.35041386345529e+182, 7.33422109398814e-185, 4.64150042586645e-103,      -8.0386009022427e-240, -3.35173632520979e-126, -2.42722502277145e+23,      -1.41602249409249e+244, 8.45340068549424e-110, -5.85993665551993e-198,      3.81865841535849e-261, 1.21105374808398e-179, 9.29912949375996e-273,      -7.17747015909612e-24, 8.13737154750469e-193, 6.33108233744202e+293,      -5.86646082860298e-121, 9.39750224386897e-279, 4.82198711298646e-52,      -2.22522940930928e-237, -3.00986381862313e-124, -4.37520142660295e-282,      1.60413614224436e+45, 1.92016627628493e-199, 1.60108271897888e+243,      2.29192942781108e-302, -4.32997175437996e-68, -1.56917701478709e+195,      NA, 2.62168928354024e-107, -6.38617492459633e+156, 1.51971307969415e+261,      -2.42093998720423e-136, -1.03020080565696e+104, 3.12350290601164e+216,      -2.33582723679784e-16, 2.55795477857713e-71, -2.76238014810366e-146,      -1.42859183401869e+183, 8.58700816660075e-144, -1.58642270732271e+296,      1.71982044982413e+292, 1.49379633546998e+199, 1.01061243623997e+271,      -3.01840063699403e-266, 1.80484493611727e-93, 1.77281899853358e+46,      -2.0050277512814e-10, -1.59773881532582e+198, 7.48065663765066e-215,      1.27634726975017e-171, -8.89517946713941e+175, 9.39576830114381e+244,      NA, -2.8051371314731e+290, 3.04371893923893e+158, NA, 4797471129451877376,      -1.48412738018296e-291, -4.45242385672454e-159, 7.07179329164346e+102,      1.39455044709246e+204, -6.83752412161893e-18, -5.84295031855018e-59,      2.64626319843366e+142, 7.07060965509387e-56, -1.1217273538902e+46,      8.18640308469495e-82, -1.87897301020789e+210, 2.49204096893711e-78,      -2.93246621919431e-199, 3.36188273756759e+274, Inf, 1.01015958239635e-225,      -2.1893798506668e+278, 5.17558215623578e-292, -1.02778300172891e-45,      1.05634901163817e+238, 9.75234304828131e+258, 3.68149032906346e-271,      4.55795010124176e-91, -1.92951892908784e+301, 2.08652143765418e+138,      2.71084763891095e-270, 4.23299050974979e-50, 2.0470649515523e-176,      1.91973810639174e+253, 1.05964272192343e-274, 0), u_bin = structure(1.60765908701047e+134, .Dim = c(1L,      1L)), Y = structure(c(7.34252671855294e-187, 3.53212204836221e-40,      7.48697804478023e-48, 1.43184481961213e+213, 4.74722627101987e-117,      24553.8833305513, 6.6224278683391e+115, 7.0114749699857e+62,      1.34620523593128e+25, 6.66401113618354e+136, 2.29856417717663e-209,      4.65610337461448e-44, 1.3478104327288e-276, 2.47512501437694e-19,      1.24128690503873e-146, 1.02091260282439e-19, 5.41384753692835e+43,      4.76022095112593e+132, 6.23259372932761e+89, 1.37842862289215e-282,      2.01269998519382e+58, 1.92617347296103e-153, 1.39362919676791e-102,      6.24835246230035e+29), .Dim = c(8L, 3L)), z = structure(c(1.56670128015045e-93,      4.88782972314145e-150, 6.98419515573735e-141, 2.66048811955181e+176,      1.45013076762784e+130, 4.54201088565681e-92, 4.21727818213623e-183,      7.29948063410841e+111, 2.51493275667045e-250, 8.43584141163914e-160,      1.0510800743679e+57, 2.86603213651647e+75, 1.71363097016933e-253,      1.26716717621403e-29, 2.05077012779268e+277, 2.31166714931676e-271,      8.40997057129253e+250, 1.88105205408183e+126, 2.32520705471345e+82,      2.01517313076219e+95, 6.07440897644263e-68, 1.18729583034277e+229,      1.03909551915735e-186, 1796902435283.99, 6.29439189378052e+190,      3.44202988373462e+288, 7.4426982561258e+242, 2.0520656737032e-187,      2.37967486303726e-153, 1.42546462510371e+237, 2.01622209358394e-85,      7.63515350630893e+215, 1.86450487400956e-265, 1.63412777947692e+63,      1.95454167146354e+164, 3.40740622035179e-43, 1.05699958892118e+223,      2.89225682549534e+166, 2.71673506150955e+197, 1.28338121248496e-260,      5.48894933241875e+76, 3.7321853665163e-168), .Dim = 6:7))
result <- do.call(PLMIX:::CompRateP,testlist)
str(result)