testlist <- list(a = 7.73894090364282e+56, ein = c(3.04072249260674e-162, 8.52171475431224e+151, -2.56101348379959e-166, -3.89638019146403e-120, -Inf, -1.18677683165762e+78, -0.0070579978543403, NaN, 2.31049250113662e-29, 0.000475019551220907, -2.14715942230822e-215, 4.73445540015647e-268, 1.61816297675879e-44, -2.2783741403394e-20, -4.81213600522781e+277, -6.96077798240833e-217, 1.42246777598496e+132, 1.93259016145597e+205, -3.62536543248155e+117, 1.1903241478315e-153, 5.15897917174239e+27, 12158178178.9569, 2.84037781763615e-159, -3.06676274066336e+159, -6.00482328731923e-68, 13694881391845660, 2.57162677046587e+252, 6.98340641672913e+38, -1.34513928891861e-94, -7.62843731543439e+115, 7.93549018518072e-67, -1.56904429473553e-06, -4.51339867130122e-71, -1.47559314837127e-74, -1.92924423519513e-299, 9.60971142229059e-207, 1.61135489440036e+23, 8.59320490538824e+240, -3.13105276077444e+129, -1.55626135480187e+125, -1.69345675165934e+72, -3.72726049420217e+110, 2.44962578801496e+196, 1.26273368274189e+275, 1.21110423237226e+291, -3.61009057836982e-292, 1.38479849806617e+55, -2.10570181709485e-116, 4.72677924666744e-137, 0.0041860451270603, -1.44726810812284e+210, NA, 2.48028769695567e+128, 1.81977326957772e-91, 8.72868732528511e-105, 1.02592543161017e+62, 1.23327161965818e+230, 1.04186461758253e-08, -8.92981247865328e+85, -0.978626555777671, -5.71130873268642e-117, 1.72206506330693e-136, 1.30550421113247e-244, NA, -3.02588612194812e+149, 1.19698706936075e+286, 0), eout = c(-9.75597506948204e-51, -Inf, Inf), shape = c(-8.42785665887644e+143, 5.41919559362911e+224, -3.26616780765831e+22, -3.61801180595461e-28, 4.26160521294394e-265, 1.04046677304656e+207, -3.6763093625191e-69, 1.92430638783797e+304, -2.54783489297397e+255, -3.35089318818035e+72, 8.10025615446989e+78, -4.35803245378201e-244, 7.33766360642965e-16, -1.65729122766385e-30, 7.67481076491859e+144, 2.47976689138235e-190, 3.20119432918343e-59, -1.57939517967839e+271, 3.35419034392447e-218, 3.09581969478798e+284, -4.12287870525749e-196, -6.7083069619851e+90, -1.15603236846106e-273, -1.73811285114842e-66), yin = c(-1.66667893622001e-49, 1.91698338082271e-80, 2.93871033907185e+294, 6.23890285463427e-80, 4.73594416852843e-68, 1.92374608756283e+304, 5.22278042553461e+77, -2.97932406633684e-194, -2.68155229469859e-130, -2.8443541465211e-188, -1.37830165814193e-303, 9.46138801054663e+185, 3.43512439634007e-26, -2.80408356385423e+194, -2.69315621855967e-264, 8.88375296519136e+93, -1.28149993449481e+192, -1.05378635096144e+270, 9.9348541420566e-272, -4.49673024853768e-166, 1.08790490440457e-197, -1.2041029401751e+269, 5.69436160505039e+304, -4.31279914103383e+297, -8.50762375722852e-293, 8.10981151245745e+266, 5.79154874698599e-162, -1.52841548347558e+202, 1.08404704783176e-287, 6.87024100783927e+274, -5.68764856223117e-181, -1.13844874214302e-199, 1.96260971350789e-252, 5.33405194998669e-300, 2.59208973630206e-42, -9.97306573534695e-54, -2.72162996958946e-171, -3.62546934961208e+168, -1.05877353233728e+151, 2.42723774121938e-180, 2.71379408558098e-129, -2.99574316180368e+172, -3.92218442701392e+180, 3.87644683863415e+40, 2.87529519465824e-21, 2.1613714735693e-216, -1.24268282218984e+93, 1.1295944748571e-232, 3.92159577538232e-79, -15667.1775954664, 4.57084549186976e-49, -1.25757101230842e+73, -8.79373529590978e+217, -9.77937136970318e+240, -6.91902272399548e+224, -1.16799430317206e+232, -1.9654566928719e+138, -2.97633622985238e-92, -2.12534603551549e-12, 3.06886759116986e+143, -3.91468555641316e-243, -5.48275336426756e+103, 9.28985945620188e-15, -3.80097643545023e-13, 4.66046102560888e-69 ), yout = c(NaN, -1.64217809273048e+131, NaN, 4.23066581849164e+207, 2.48183270265646e+47, 8.28182054105106e-108, 1.38680336694119e-275, Inf, 5.78199949171137e-237, 6.2320075141858e-30, -2.11814402719399e-273, -1.27000634718051e-269, 1.09457818701388e+240, -3.14298318954663e+178, -2.74505505312392e+143, 4.27914432640749e+225, 6.36261492581283e-209, -8.98934695502905e-156, 2.33085174425266e+48, 3.00618321575548e+174, -8.78387566818307e+63, 7.56032999167439e-26, -1.25716071873292e-14, 2.25199374422079e-184, Inf, Inf)) result <- do.call(smerc:::stat_poisson_cpp,testlist) str(result)