testlist <- list(alpha = c(Inf, NaN, 1.97922406377788e+228, -3.59107699441567e+244, -Inf, -1.55883212192146e-96, -6.35358156455407e-155, -2.72646251279765e-183, -Inf, 3.37294391423461e-244, 4.09542677697058e-153, 2.8782855380918e-19, NaN, 2.014652004729e+87, 1.23966407241917e-307, 7.30757125127656e-14, 0), lambda = c(-2.29531423563736e-35, -4.99457911731847e+152, 6.47420298672805e-123, -1.03629448939669e+87, -4.46376612767009e-25, 1.27084692195932e-25, 5.4113169913687e-127, -2.5262142048631e+120, Inf, -7.16332125288278e-103, -6.45140076551695e-127, -5.97368563255651e+118, -1.31041431005285e-140, -3.20716467661938e-264, Inf, -6.70726404346023e-29, 1.14248983282028e-260, 1.27721889731596e+175, 1.81498697919415e-103, 4.60042870316026e+150, -9.63057301954796e-209, 1.28029107587373e+227, -1.37206688115575e+171, -4.68233617954953e+264, -1.23014520035587e+305, 115.097224400942, 3.47620904384628e-84, -2.03895378770833e+261, NaN, -8.75929723428951e-174, 1.62486543640344e+237, -1.8614032567224e-176, -1.49929975798849e-226, 4.49304255952465e-116, 1.75853338206132e-92, NaN), pi = c(-3.99783530481817e-296, -8.87425719262195e-91, -4.29460269036844e-193, -2.99763985794034e-255, -2.80806959989529e-09, -2.11545426082871e+162, -1.78864136320997e+139, -1.40360158231855e+107, 7.06883638526746e+145, 5.45122796714185e-65, 1.00954426397766e-237, 1.70869302985955e+56, 6.47962423810956e+244, -2.12220811951873e+46, -8.32908956624188e-217, 8.27370452549545e-50, 26.3612790465141, 4.51339221741159e+290, -3.78385448435574e+207, 1.88425054883798e+155, -1.25411394315285e-210, 1.58109240966847e+26, -2.63750753418699e+36, -1.0933043699579e-198, 1.66197510005568e-128, 2.00148684475721e-186, -3.41136324310253e+272, -2.0812885380611e+157, 7.42360977924942e+85, -1.96049727537688e-301, 1.06888253592945e+182, -4.73405984917434e-130, 1.30239172454634e+284, 5.43806577380378e-229, -4.26277506223651e-230, 4.25195773044505e-305, -9.61775562462948e+115, -3.97096130772191e+111, 1.52642682792719e-114, -1.04383292905483e-214, -1.86807203782792e-280, 7.14510491611176e+135, -1337591.04728541, 4.70288561307536e+226, Inf, -1.3750371756284e+104, -1.47243842160063e-244, 3.56471037171436e-56, 2.91592105686025e-60, 4.2257929609985e+204, -1.50503739236629e+218, 162.661644418177, 2.95920501308666e-89, -2.56329586791393e-277, -9.33153710655965e-151, 1.26418176350228e-38, 7.52365118556312e-259, 1.85499621212042e+233, 1.85499621212042e+233, -7.84413096873257e+131, 2.16741265861728e-168, 3.88064545944251e-287, 1.91175638996642e+305, -4.50261806831136e+222, -2.93897291207009e+303, 3.21664477669789e-254, 2.25965466425649e+179, 2.52805522346375e+281, -3.10927938861863e+200, -2.01074514616462e-48, NaN, 5.16567785224198e+103, 2.21161298951154e+86, 8.77903123118983e+52, 1.85499621212042e+233, -9.04585405798879e+151, -2.54171939418459e-194, 3.95803016389987e+46, -1.85292038336771e-303, 4.77688869614269e+43, 4952958395.42664, -7.12217102491722e-284, 0), x = c(9.8431225885683e-34, -9.2876692610509e-237, 2.01598745423328e+67, -6.87890476198253e+22, 1.96196785736846e-120, -6.47009384879705e-243, 2.95132806695513e-187, -7.49032545349449e-237, 4.51234513490432e-107, 787066309128.095, -9.59166760898778e-175, -3.04834871492258e-33, NA, 5.2872273698263e+22, -1.40359158544882e-175, -2.70291533915212e+38, -2.52613715740481e+189, 1.23285805708729e-210, 4.55728980528807e+166, 9.29369568891784e-54, -5.57168364851843e-177, 6.80936583295893e+84, 1.91189728246827e-225, -1.20546346324781e-29, -2.18098968706388e-116, 3.84990712988863e-294, -2.95751652385081e-216, -108.927955938342, 1.29525579273585e-130, 1.6758944785404e-225, -4.85830541318219e+32, -4.70251962557954e-20, -1.54607014155878e-229, 8.70538291267182e-30, 3.22422895009535e+181, 2.97575191348037e-231, -Inf, -4.64529845697415e-90, -1.98501585583491e+210, 6.39310181421408e-193, 8.82672679855359e-50, 6.79521542943681e+47, -9.13481281404581e-38, 1.47947159809871e+53, 1.71825330351678e+89, 8.52611560749189e-206, 4.9198900637155e-111, -3.90117549756391e-283, 4.94731385948741e-165, 3.45436242517361e+273, -3.19966496701728e+267, 1.41641700438785e-301, -1.5209821914534e-273, 2.27285293568046e+187, -3.29636115925527e+230, 1.10820513593701e+295, -2.10482351322197e-79, -2.37690089220516e-73, 4.27710753873121e+206, -2.76164919556184e-103, -1.09354838211148e-71, -2.40966101314193e-181, 8.80719110092655e+128, NA, -2.08597695716674e+209, 2.05106287425318e-201, 4.41645082093959e-132, -3.52383371656902e-24, 4.0110054580229e-283, 6.55837477386368e-174, -1.52554635163597e+77, -7.19335878452191e+73, -5.75252411558306e+149, 7.66460632773834e+171, 1.09421031494507e+127, 2.05969105199705e+296, -4.09613301704236e-187, -2.11753494837113e+64, 2.40804915540241e-259, 2.49491866072803e-151, -3.17185399376801e+195, 6.1072389717616e-139, 4.08878406963248e+160, -1.93745409159656e+158, -7.89992155080119e-20, 2.28457035564544e+243, 7.03710662388032e-133, -5.04755599008414e-102, -2.23777876557941e+268, 2.03257098264638e-83, 4.47832891401851e+111, 2.24634950670153e+235, -7.58877429573809e-102, 1.34419462438376e-71, 0)) result <- do.call(mixR:::loglik_gamma_C,testlist) str(result)