testlist <- list(mulog = c(1.31809102333828e-254, 1.34496430324309e+98, 4.69602599850299e-231, -1.00045104529447e+151, -2.9392509888063e-288, 7.48776748315721e-51, -2.67606302533403e-304, -1.93015702142829e+111, 6.60058463872216e+168, -1.10244172437196e+135, -1.46824382932543e-94, 2.79784398794488e+80, 7.87238446263297e-44, -2.72581967663184e-285, 3.78707591689165e-165, -4.38692806470868e+123, Inf, 6.60058463872216e+168, -7.30457250915274e-118, 2.98495317219806e+31, -Inf, -1.44648025197765e+101, 3.23227313298739e-77, -3.14671406676152e-136, 7.12950764913326e-159, 6.48569683766862e-116, -82.4263392820432, 1.30649998107156e+240, -9.60212682165365e+223, 5.36390766271097e+243, 4.40236552597837e+60, 6.26931524467736e-78, -2.49401123330321e-12, 27104570121635.9, 5.58734467436417e+32, -6.43601903023248e+40, -1.93184942247753e-25, 1.89077707336113e+75, 1.02197796403391e+287, -1.57789086455414e+245, -2.9307305594448e-137, 2.55411597100433e+104, 9.17464014152039e+287, -9.79337680427974e-255, -5762074.78748836, -1.24772618178982e+165, 4.7373588185838e-18, -5.69592325720416e+112, NaN, 3.68662381608788e+206, 7.07761444309764e-240, 6.00208431679895e+113, 9.29009777481889e-155, -3.44460909677176e-128, -4.85753935079166e+51, -5.79057393089755e-128, 3.82775693532656e+131, 1.366354933135e-296, -3.43164755203922e+167, 0), pi = c(NaN, -2.38070141863582e+182, 2.12616339068723e+160, -Inf, 4.96216125157124e-200, -1.01409525484669e-307, 1.47084950397642e-201, -8.18422065811928e-129, 2.06219421630296e+77, 1.71553697673839e-177, 5.04749668519846e+94, 1.56621592441496e+241, 2.43615759642975e-52, -4.74625523423063e-75, -1.65084031137863e+106, 1.39128556298679e+166, 3.17479482710882e+267, -1.27130265429146e+196, 4.6738414575901e-98, 478797242014809984, -1.66695146140705e-32, -5.07110535750005e-197, 3.74142175105103e+67, NA, 1.10105009678855e+131, 2.01990169618295e+79, 4.83506721596452e-67, -1.30958424935882e+101, -4.67599481130004e-07, -8.7985190448814e-166, 4.14317818419002e-284, -2.27222646970235e-05, -1.03094968681695e+50, -7.11228514931249e-152, -6.280471586491e+305, 8.44929160511098e+213, -7.9379638109356e+152, 3.65035082179825e-84, -6.28239026200025e+178, -1.02564244393592e-188, 3.99119670227858e+159, -1.75919312923109e-131, -2.33575747456572e-59, 1.94846968765399e+86, 3.82850055180712e+301, -3.05932401998086e+305, -6.74931757092873e+54, -1.13167374582512e-268, -1.25046986750763e+141, 1.03595183256966e+251, 3.40027091905731e+181, -1.04678092475568e+58, 1.37952370191732e-184, 4.0137880359895e+37, 2.93170135624998e-212, -4.43070888810424e-223, 7.43655152089582e-144, -1.72365951576454e-115, 1.07967569151585e+146, 8.91057979640908e+261, -3.33870979900223e-243, 7.79480309991915e-124, -2.29174416959824e-154, -2.4252451344764e+169, -1.03834200637634e-144, -7.19833936719678e-163, -2.16700645448407e-270, -2.90275196649259e-284, 1.23540800610217e+39, -4.57889838858994e-299, 1.30333101450055e+53, 4.39577010756843e+104, 8.14147803691676e-99, -9.096200824798e+172, -5.80245250042892e-262, -1.04337999137517e-134, -1.2171298344385e+173, -30052293210985160704, -9.54686457152969e+258, -3.09810217231305e-61, 54.56086449665, 5.24588381837979e+69, 1.42528535550944e+285, 4.02158019862209e+274, 2.86960741007187e+91, 2.07762719613761e-55, -2620504891.06408, -1.23471735955235e-228, 2.34954683606824e+136, 3.17479482710882e+267, -3.32960000305339e-264, 3.69704517013826e+280, 2.83187976084033e-290, -7.94325743591721e+197, 0), sdlog = c(-4.01619772576197e-189, NA, Inf), x = c(-2.0681373785007e+152, -6.48863836067491e-144, -2.24267105245861e-112, 1.0417961952096e-226, 1.3493863731734e-72, 9.91143581823885e+86, -3.75472579398165e+134, -4.25274813376298e-50, 7.85941709395269e-155, 6.03760233018215e+227, -2.80492154058877e-06, 1.36192501940512e+187, 0.0293788685898184, -2.84314028926551e-103, 154102130.293544, 1.80557936458418e+23, -2.84227672219279e-70, 1.93363495440252e+177, -2.05547818949365e-116, 3.60897588329643e-163, -1.16916113520593e+108, -5.47689520970264e-126, 1.68204220721474e-268, -2.29250438184543e+96, -2.43928725848788e-90, -6.31374684366058e+171, -2.76155207558527e-200, -9.30810806061515e+39, -2418397571255.58, 7.75011632803657e-65, NaN, 2.91069120715644e+135, -1.53948567616184e+20, 7.96737967452298e+175, -7.65643528820479e+225, 5.33363181091733e+159, 1.30423691636061e+151, 1.36696548210945e+40, -2.98492870931529e-27, -2.89216372317111e-269, -2.3008669915058e-293, 8.46966552297114e-196, -8.51406066951934e+178, -2.4290402692286e+222, -9.34269299468351e+24, -3.37171329005713e+85, -2.51760934203385e+227, -6.09632597268141e-271, 7.01768655034756e-77, NaN, -2.02347290432354e+260, -Inf, -1.67067728059491e-246, -2.70063393864368e+225, 2.22506790735602e+184, Inf, 5.72358188885014e+195, 4.95238775439783e+69, -0.00964606639324467, -2.32031069246464e-36, 3.04361269104745e-146, NaN, -1.67617794171821e+296, -9.99198954826476e-71, -2.99301044107653e+83, 3.16350799744997e-13, -8.46837544836417e+95, -11.9520604165018, -9.99951684020304e-264, -3.04360616608556e-120, -2.76707444722046e-303, -9.30494616168997e-208, -1.06828344390674e+307, -1.99030798002911e+153, 6.4364105285718e+168, 3.59328672527525e+101, -7.47577672553823e-100, 6.28322522538814e+43, 1.40014246743611e+168, 7.64439190564392e+101, -1.20132555637775e-105, 3.06477835817763e+47, 0)) result <- do.call(mixR:::loglik_lnorm_C,testlist) str(result)