testlist <- list(alpha = c(-2.30822245015652e+92, -2.85670816785528e-300, 3.26692652351017e-181, 3.94998070595374e-85, -4831685167157337, -Inf, 6.42085690580274e-168, -5.44503163553299e-86, 9.87736094316963e-216, 3.00033480053481e+268, -7.4555195858988e-182, 6.28126740122673e-41, 3.92969813687852e+268, 3.35679229480699e+179, 8.09379050238074e-114, 2.57776389775299e-105, -2.66468307096558e+51, -5.2966793722608e-299, 2.0923531611342e+271, 3.96141413952363, 7.44065375522518e+122, 3.115532763344e-17, -5.83660466085231e-224, 1.24957466693814e+184, 6.2724551626425e-58, -1.22360255049914e-253, -3.3262920211579e+125, 1.64043203003462e-123, 2.67468210094455e+268, 1.41369316875076e-147, -6.85532453963038e-133, -6.96965843078869e+237, 2.21010367037423e-279, -1.69529986659082e-127, -2.07804817512838e-306, -7.72457501356876e+173, 2.15200674399347e+194, 4.64895900002749e-223, 1.27576369761858e-298, -5.62918858061399e+181, 9.04414490738714e-220, 4.94740638264237e+107, 8.06639599999852e-258, 6.14398818413196e+117, -2.94626021253608e-176, 2.03196557343241e-27, NA, -1.30941809790744e+126, -1.01598463876709e-245, 2.08567526746004e+93, 1.30527863337083e+201, -5.18562361527377e-64, 26632323278608.8, -1.84986199095036e-147, 1.88230562462085e+234, -8.10237519826349e+154, -2.24310722500497e-196, Inf, 3.07700159196264e+226, -1.47382245374602e-12, 3.76900168373376e+155, -2.58295956479363e+304, -9.68128939378845e-98, -6.91994536289972e-34, -1.72185360837938e-34, -2.19422663584432e-88, -5.08729722208962e-289, -3.3262920211579e+125, 3.0723594383914e+21, 4.37640739384191e+196, 6.33325642054754e-221, 0), ex = structure(c(2.57371707560558e-168, 2.18848125365477e+25, 3.89863244845627e-190, 4.83110334212718e+182, 4.02353362948783e+156, 6.73544137084999e-83, 1.97379649206366e-99, 5.57536783076625e+89, 7.95125566405697e-111), .Dim = c(1L, 9L)), lambda = c(-0.0597276243303816, 7.43788788759497e+110, 2.65661602709425e+175, -3.31753844132606e-28, 5.75948758896197e-87, 5.68067305602945e-220, -4.63422462630525e+69, -6.05158878711037e-99, -3.232059815588e-273, 7.17424106907719e+183, -8.7041760022302e+24, -5.347011503006e+145, 2.23335764374486e-38, 2.23303966375103e+263, 1.32869446365373e+97, -1.11256468815088e-53, -4.98010623412683e+137, -1.73973384628074e-08, 1.41278654188057e-44, -2.8160214836171e+43, NA, -3.5046765643547e+204, 1.882930612948e+268, 2.67761046243646e+152, 9.43231920518204e-240, 4.76156254734693e-125, -6.9543344525167e-31, 3.55205414758891e+80, 4.85517383863542e-225, -6.29666713822825e+33, -2.75141772839653e+137, -5.60113191001506e-198, 3.75687186514432e+41, 1.31423443950886e-61, 3.34181402900797e+145, -1.26028474005123e-300, 9.70701356373506e-136, -8.76745659494196e-218, -2.8160214836171e+43, 1.84928908448857e-304, -1.01315503560386e+158, -9.70666176517028e-217, 3.137656428814e-15, Inf, 4.68791740994913e-286, NA, -5.41559472781554e+268, 2.47998282971769e-87, 0), pi = c(7.91814474520693e-36, -1.03604109972184e-38, -1.47411869472668e-49, -1.55484174860496e+171, -1.0136328068146e+225, 1.77601441133147e-74, 9.41335361431222e-295, -8.50805024984053e+119, -10947885965964.7, 2.51249663438648e+28, -2.55023827665214e-184, -1.08301349147491e+178, -1981460.48280588, -1.97210468873036e+274, 1.2506203711373e+297, 1.69099983245448e-282, 3.95767396028074e-109, -3.17279106293134e-237, NaN, -2.59045141894141e-39, -1.83441902341714e+90, 2.9661077500441e-182, 7.85005624323148e+161, -3.52139705851976e+26, 1.24359732425018e+61, -1.62891903684491e+215, -7.14417014181705e+204, NA, 3.1613101206298e-256, -3.59466917874877e+145, 1.04917768281033e-126, 1.25766197773606e+241, -2.65610341753977e-142, -2.8281690727441e+87, -2.61807358339517e-240, 5.13013663657535e-295, -6.69986361254225e-235, -2.25601250568938e+54, 7.15651782536451e-22, -9.65685271273359e+82, -1.5252246720178e+114, -2.90224123642396e-234, 1.40781264721956e+101, 2.7137982475003e+91, 9.60151429565169e-194, -1.11299135970558e+185, -8.73161179305655e-183, -3.15779187805657e-210, 2.43315715843152e-297, -568348783518450, 781959500378539648, -1.99439039430226e+285, -6.99309439218292e+31, -2.31311221420452e-247, 3.76756026471916e+86, -8.15135082447476e+26, 2.19073087057996e-285, 1.21140275313835e-225, -2.21617366732175e-119, 8.12172885438889e-175, 1.00063891402105e-145, -3.59466917874877e+145, -7.77206511889646e-224, -9.89075761532833e+290, 2.92215970491186e-65, 2.55005080713015e+50, -8.56752805979891e-188, -2.88940453276056e-298, -1.7497611459575e+291, -9.17537012506705e-268, 145.174900559222, 3.34753164612153e-167, 0)) result <- do.call(mixR:::TXgamma_C,testlist) str(result)