testlist <- list(n_rank = c(2072704313L, 1230655813L, -635113761L, -1166403940L, -485538585L, 113766661L, 2049763759L, -1554516194L, -504604630L, 1202286369L, -832700280L, -669637445L, 644391468L, 815018410L, -1072015005L, 1901166930L, 1037663364L, -2081643183L, 1252448546L, -1124213278L, 1702825621L, 322977747L, 1519990476L, -357032409L, -1852068844L, -2024708655L, -146869324L, 1003525793L, 1336227427L, -445237697L, 258804729L, 623517878L, -976434356L, 506469653L, 1863371178L, -530560209L, 92443370L, -121034489L, 909443163L, 1595937060L, -304320501L, 227352700L, NA, 1249029199L, -197182996L, 140702526L, -1745643018L, 329914880L, -2020996204L, 388763828L, 372650336L, -1461801060L, 501778469L, 1249600482L, 1862064258L, -1493990867L, 2106507669L, -1160689200L, 142291120L, 1507806582L, -942302447L, 1375663039L, -87277152L, -1077621188L, 1385156876L, 1629215849L, -1777591825L, -345610830L, 1006683021L, 897019464L, -2087806910L), omega = c(26573.1595127321, -1.23081477029013e-88, 1.29700328337713e+48, 6.79778772961117e-86, NaN, 3.67472432187908e+248, 4.14644559711643e+299, 3.23505967517458e+237, -1.82544135101434e-120, 2.02780122862029e-66, -5.23213375154619e+252, 1.33080021617222e-11, -1.21207834018031e+89, -1.29397849345069e+48, 1.20550336294865e-251, 1.84576758734005e-284, 7.2361524741252e-299, -7.58701054542728e+216, -1.36266483395065e+49, -4.74581243773888e-267, -2.5576998054433e+115, -3.93220014299236e-165, -0.000227607715579133, 1.61018138409798e+102, 3.68867785762993e+91, -4.71407833918275e-209, 1.82174382045674e+263, 4.26871394114263e+195, -2.10928721244473e+251, -1.17516931430219e+183, 2.02780122862029e-66, 3.43600562284799e-50, 1.37831067640263e-244, 8.11367115117529e-171, -3.54157856970275e+290, -3.6896496151368e-177, NA, -4.52988915964091e+61, 1.31175016971289e+88, 5.2738749728388e+243, 1.23499239514005e+122, -2.34852892959815e-210, -1.60536829583809e-65, -3.94057221629064e-148, 2.77788374539138e+278, 7.57496568667602e+37, 2.60776801917043e-79, 4.71397182023051e-265, -4.7169216688824e-122, 4.5714405078467e+123, -3.21405239551995e+39, 1.44028734429133e+287, 9.13783041090485e-215, Inf, 9.44473824311513e+61, -3.81964373110397e-103, 522693957799057280, 2.86597401802587e-199, -4.40493603328109e+239, 30519.5343707827, -57204399743893960, 3.46528143504621e+301, 1.8801545029808e+280, 8.01001079025247e+39, -6.24516315191885e+101, -1.3240131020708e+236, 4.87290449293869e+291, -1.9599663691954e-150, 5.92867467539474e+81, 1.03115996735323e+281, 1.23890225322533e-118, 7.09747941890244e-27, -3.8885220362246e-100, 8.06861869450284e+129, -4.05262067394811e-234, -6.09713851443027e-162, 1.1040185524467e+176, 1.64155707335315e+227, -3.31278995021554e+135, 0), p = structure(c(6.89868157667274e+222, 0.00181530043802037, 1.6446834221174e-149, 2.26412121821577e+49, 6.33094849816546e+170, 4.20903062980591e-63, 1.32143996520415e+89, 1.64219224654468e+291, 9.12028633862069e-60, 2.12259995309103e+259, 8.34737548700275e+44, 5.35757818128628e-228), .Dim = 3:4), pi_inv = structure(c(2.38060934757585e-276, 6.71292136413798e-279, 1.80383969510859e-277, 1.86259929029225e+73, 4.7064258098427e+191, 3.69226757865551e-245, 3.23543814035122e+99, 5.89051472911966e+116, 1.73847200049347e+115, 9.13706497748042e+87, 4.61354154602327e-23, 2.15672809020351e+160, 1.06436539968581e+95, 1.11501623845767e-284, 1.3456275012973e+176, 7.9169908473822e+258, 2.59504594764714e-260, 2.92665638185969e-253, 2.51772377500665e-253, 1.82900870017075e+167, 1.71718483093803e+159, 3.87879389688886e-37, 2.35811108499717e+285, 1.48839442888129e-158, 3.04590865401839e+166, 6.97503008081737e-164, 7.96347402302564e-192, 1.06525310087306e+79, 4.3638361545259e+26, 1.07423557903665e-72, 6.35734304670103e-142, 9.53072980286736e-119, 3.18054140804159e+148, 3.35705218207678e-277, 5.46529356968934e-42, 6.09154729581311e+173, 2.15654116969692e-45, 1.19049772527138e+77, 1.96373761647512e-83, 7.18981168567146e-78, 1.02904718043634e+220, 2.23751508326357e-214, 1.11018718408748e-30, 1.14899761399748e+132, 4.61951212142368e-253, 8.67818917416003e+300, 4.96211301837341e+205, 8.85840033632911e-153, 1.49718729629459e-223, 3.59051362968471e+182, 8.72944867796043e+220, 300169806.660742, 6.32417326146293e+100, 7.32790456167381e-119, 1.92952771708119e-91, 2.43614575100206e-214, 6.02198229845031e-287, 2.14213044990298e-29, 1.91732701481803e+234, 2.22026753811677e+121, 3.60451185065502e-200, 1.38077015514362e+72, 2.84441253094807e-303, 9.36771580365289e-232 ), .Dim = c(8L, 8L)), u_bin = structure(c(4.72331263554869e+226, 2.48840534338024e-92, 4.92195349095182e+125, 1.84066846435183e-38, 1.10578540621741e-302, 136404010238147, 2.90812061791172e-125, 6.39156186749078e+121, 1.0256890885314e+113, 3.60551306207925e-163, 3.69045711217453e-161, 2.4122390710168e-45, 2.47599825353067e-210, 6.70002049679084e+122, 4.92535158847356e+126, 3.26754580261616e-71, 2.11701861363419e-284, 6.95487020052902e-222, 8.10345502320134e-292, 3.73502902227373e-166), .Dim = c(10L, 2L)), Y = structure(c(2.23920712297412e+25, 2.23870355750651e-286, 1.79287385484033e+68, 7.00428920749917e+270, 9.63314862410056e-209, 5.14331392904614e+29, 3.81380299505772e+300, 1.616740836612e-148, 1.47149922328734e+237, 3.38689971374432e-96, 3.93160975109039e-47, 1.22252751759836e+55, 1.94506959797331e-171, 2.44590678829862e+89, 5.13622547996657e+231, 3.62868320660145e+89, 2.17609119310153e-142, 2.68730234963664e-96, 5.72195531791977e-23, 90107389.2229455, 8.82492873014999e+149, 2.89878601935729e+116, 1.62531659536425e+272, 3.87657887761741e-143, 1.73699617597049e+163, 3.15855523696439e-172, 2.73398781946857e+32, 6.96359987636132e-47, 1.26818984896768e+266, 1.24976568610515e+263, 1.13599954570437e+76, 5.90930327817667e+234, 3.68649793664372e-70, 8.25643318014354e-304, 1.15592702849705e+169, 9.7095294704251e+56, 2.07193228828085e+58, 2.10608928410772e-144, 4.94162774682703e+279, 4.93789436673643e-42, 1.93929122154922e-261, 1.00424288511473e-50, 1.45631059962656e+246, 2.35527044483225e+219, 5.98019172891013e+51, 6.23439142277593e+245, 5.94145664564228e-99, 1.01928592863359e+278, 4.53100521409723e-185, 1.08078332274058e+297, 3.20942418836851e+58, 3.49551004404314e-220, 1.72133004220959e-147, 1.490026062957e-255, 4.94540588460751e-62, 3.04240381941808e+183, 4.36858328055008e+124, 6.88450663283305e-206, 1.74625823870598e-268, 3.28662550680764e+277, 7.88521679284941e-277, 13684473.3879014, 8.61634891748879e-224), .Dim = c(7L, 9L))) result <- do.call(PLMIX:::CompProbZpartial,testlist) str(result)