testlist <- list(data = structure(c(1.34418779622663e-272, 3.8042159475684e-232,  5.19161918258822e+107, 7.03700477922626e+158, 2.19929926310563e+52,  2.26499871786906e-198, 7635048943038108672, 1.82767031947259e-124,  8.63138319285904e+199, 6.16467353901701e-221, 7.78175854673911e+62,  7.08284125291794e+166, 4.81164120266103e+303, 2.88074517986394e-109,  3.26319558887621e-94, 2.22820919289682e+223), .Dim = c(4L, 4L )), k = c(-8.89475467558046e-72, -32160799.3002289, -5.11959089971222e+242,  2.91075944545503e-261, 1.76294579909346e+104, 1.23727281298875e-135,  -2.33072195566159e+110, 2.11663991278514e+120, 1.40644716707771e+300,  8.2369441879707e+189, -1.09555459896642e-269, -Inf, -2.04168579957743e-249,  3.62081044237352e+137, 9.56730476951711e-231, -1.1499472356805e-130,  -2.69717087484706e+245, -9.14985764561664e+36, 5.82422007054069e-177,  -6.07585335500655e+32, -1.32981948932565e-125, -8.22445828801439e+198,  1.39361865294714e+235, -8.86221631829705e-186, 5.60311075988938e+48,  4.01639105538712e-86, -7.80320285757066e+131, -1.66670425287791e-175,  -4.06070579899584e-79, 1.17485073449559e-300, 1.24309398506679e+209,  -5.0716008221565e+42, -2.14572131407504e+193, -1.41306357958155e+56,  -1.80462439661025e-19, 5.25276877140311e-273, -2.48823413661957e-220,  4.89414573637753e+89, 1.29456284707656e-252, -4.82777376350112e+111,  -8.36769859987511e-234, -1.15658614699835e-94, -2.5878377420504e+107,  -2.08022805757503e-222, 2.69867237377801e-163, 2.98963327497767e-174,  4.98083059427031e+256, -4.36627854907034e+91, 7.32342430415445e+132,  1.57812305171075e+244, NaN, -5.33809140334701e-81, 2.71456568738009e+297,  -2.60657623158248e-28, 4.78472528633469e+91, 4.46578783841269e+28,  -1.83243267939187e+210, -3.65627188999182e+106, 2.27581478351356e-244,  -8.34331040769633e+182, 1.93770016231312e+157, 1.83795015779211e-225,  6.3641024025357e-120, -6.80314642327122e-94, 7.85720363846964e+117,  4.04175406814619e-191, 6.21029766980371e+276, 1.1614566024821e-163,  Inf, -1.56998881975871e+167, 4.44863500242666e-115, 7.21287531473047e+239,  6.02545106743149e-188, 2.61700192087585e-246, Inf, 1.72795519532997e-251,  -3.2910119804112e+294, Inf, -1.0447695996018e+217, 5.55366962607976e-133,  7.16955365325756e-65, -7.28942557319033e-19, -1.83750058268819e-96,  -1.34851464791459e-91, 1.81683830663089e+84, 0), lambda = c(5.46858477453303e+21,  Inf, 3.85079767159675e-260, 4.0452792041388e-247, -6.4993649104914e+49,  -1.26140197641164e-159, -2.09849414815693e+162, 6.86607491644188e+70,  7.19116232410851e+142, -1.91587934661723e-268, -3.47428522353421e-258,  4.32831972891212e-210, 4.42364993313092e-163, Inf, -4.51601651475547e+275,  159687662658.599, -1.05343179054666e-275, Inf, -1.96347733360044e-216,  5.80982583844809e-28, 5.87140947603038e-158, -3.68040019399186e+169,  2.52820827075312e-06, -1.7323916521156e-79, -3.39476522774248e+47,  -1.141579096786e+215, 9.50060583416459e+107, 7.39146373571758e-195,  NaN, -8.90192821268936e+275, -1.90993085043269e-137, 3.16527796843259e+59,  6.15112071555606e+84, -1.84238370784382e-22, -7.7974264590614e+279,  3.35666675581499e-147, -3.89528646812119e-234, 3.54835718717561e-171,  -8.57119799599464e-64, -1.23957062923181e+290, 0), pi = c(1.40226540127935e-59,  Inf, 1.19254247883187e-36, 1.0974108926377e+275, 12205900606652758016,  9.19923852594897e+35, 1.30305453220007e+143, -9.94673627548446e+219,  -0.0751027120231048, -4.77404342101801e-244, 5.46189163556268e+131,  5.61385409418615e-154, -3.14692611790051e+297, 1.62549321410043e+22,  -1.372356308978e+149, 12205900606652758016, 8.18232173340014e+243,  2.14184584751342e-201, -4.12320576758747e+60, 4.65226895220618e-280,  1.92058570822535e-145, Inf, -Inf))
result <- do.call(mixR:::loglik_weib_g_C,testlist)
str(result)