testlist <- list(ex = structure(c(2.89356543292172e+306, 5.39761146384909e+236, 1.51933531358709e-66, 5.66773430517806e+247, 7.95716349797847e-283, 8037906.19650491), .Dim = c(1L, 6L)), k = c(2.55966944857223e+101, 6.7850904855457e+96, 5.05297926658991e+232, 6.43711617017754e-212, 6.43711617017754e-212, 6.8601773127571e+199, -2.82437088947239e+131, NaN, 2.78963873245412e+267, -1.15030870269422e-253, 0), lambda = c(NaN, NA, 2.276788906109e+276, -5.64829315602157e-268, -8.52734235591262e+104, 1.31728622128752e-108, -1.29758318541516e-82, 1.31276370091031e-65, 1.56337746083359e-66, -Inf, -8.33231435396873e-178, Inf, -3.46940633844552e-80, -1.25850162800392e+140, NaN, 2.09506247216004e-279, 9.86373722358658e+21, 5.58902143374212e-182, -3.33217040602331e-255, 1.12238843925899e+302, 4.08747812714427e-62, 1.91401251384616e+95, 4.34933257128304e+59, 5.61744106017548e+125, 8.29198495170597e+73, 7.26992187206825e+246, 0), pi = c(1.5787913861005e+39, -8.37825610948288e-75, 4.2582175197806e-163, -1694608230834984, -6.15696639410675e+197, 4.53854423792769e+304, -2.69491849360644e+293, 7.63378454038591e-86, -5.82860173090762e-243, 9.37345713314787e+218, -9.67712418596377e-13, NaN, 3.85987668008053e-184, 8.34283488967531e-08, 3.53349774709861e-229, 2.13803322519076e+191, 3.65599835469973e+139, -1.70185506563018e+168, 1.43981244849837e-100, 4.50621404934643e-200, 4.42236545857233e+32, 2.03673263746234e+250, -2.28360563191662e-187, -3.35957486777306e-221, -1.26244147461207e-228, -5.2250749259768e-202, 9.73748753238684e+261, -8.18530296227198e+169, Inf, 3.37087223636103e-65, 3.37087223636103e-65, -1.03707836175716e+297, 3.10178758701156e-252, 4.73505156307839e-44, -1.83371789292247e-227, -9.1682723491408e+166, 3.86936221358847e+180, -2.91820386546595e-43, 4.14191017483594e-257, -2.58630265099616e-240, -2.26706298868547e+148, -2.32865660502894e+49, 1.92877578371389e-253, -2.65122474334707e+24, -1.38272040508757e+43, 4308494.09769599, 1.08952722566458e+274, -4.00377488699694e-196, -1.49208780898405e+289, 4.01261830629035e+86, -9.69375277206562e+271, 2.90674724709385e-157, -3.59915936961017e-74, 1.11799467844327e-219, -4.12997699099057e-147, 5.45084143038161e+212, 3.09888901721105e-86, -3.15411743198956e-149, 9.99251279126468e-27, -2.50596964919682e+141, 333917116188798272, 3.82416989088576e-181, 25.536773562821, 1.74478257208889e+228, 4.8590286044325e+35, -1.98272770789354e-298, 1.03521237448728e-53, 4.26398448893833e+59, -1.04220423352561e+107, 5.06838439124391e-131, 3.200758886485e+19, 4.45482548759491e+41, 1.7295443633344e-265, -1.91373608408618e+210, -9.49113224031844e+303, 2.22164050072699e-23, 210074821561432608, -2.72683897954741e+163, -1.96280658396914e-222, NA, -3.67400442801532e-207, -7.74315214521639e+76, 7.44577963232731e-122, 8.91330042424045e-113, -7.25712305078359e-70, 1.37105138441724e+283, -3.64469793650147e+94, 2.03314674334652e-05, -6.39372237010102e+28, 3.34838938034599e+168, -4.45351157782551e+133, -2.07802697418797e+282, -2.14310679303954e-254, 5.41637527248294e-124, 3.06608202562102e-152, 6.27403446341088e+46, -4.96127744502321e-73, 4.4326847017585e+132, 0)) result <- do.call(mixR:::TXweib_C,testlist) str(result)