testlist <- list(data = structure(c(1.67404431420296e+98, 7.17828968368734e+250,  1.5978050094941e+136, 1.1200758188293e-29, 6.36186602970706e-158 ), .Dim = c(1L, 5L)), mulog = c(-4.26654466572799e-199, -1.72077619078999e-215,  2.52968886976804e+275, 8.20696390213729e+161, -Inf, 6.38606994710341e+216,  -1.14674408971242e+41, -8232974972725733, 2.76278839687592e+90,  -8.9582939188757e-284, 2.21050704622845e-221, -5.70352302146135e-139,  1.78550637203619e-23, -1.15355564601983e+219, -2.91824040175086e-306,  NaN, -1.71875691925506e+118, -2.86117356578784e+133, -5.20742086362861e-292,  6.3108685666773e-304, Inf, -4.43392744318381e-108, -5.30723720583362e+219,  -7.88042569110414e-289, 1.50281875075613e+46, 2285443864803442432,  Inf, -4.6011712784696e-305, -2.40457572369121e-92, 4.66687254821756e+118,  -5.44650012082914e+227, -2.19738643901966e+218, -1.15999310236088e-87,  7.40519180020996e-292, 2.55195569701107e-67, 5.21446580092306e-24,  -6.3297718444087e-248, -2.70634920432727e-197, -1.15488207216266e-25,  -1.57441798754703e+263, 6.60046270037245e+78, -1.47225897237387e-130,  -6.41602469233169e-161, 3.59842375508463e-51, 0), pi = c(-8.32232866323166e+154,  NaN, -2.82045260722652e+45, -2.51960276689963e+132, Inf, 8.13099508875047e-195,  2788.15011911636, 4.59546806458439e+77, 4.95198758708183e+244,  1.95367280860477e+187, 6.37890370073675e+169, -1.00681843866175e-107,  -6.35389557249918e+25, 8.57163566690719e-47, 1.8430597399683e+118,  -Inf, -4.51876363265511e-40, 5.70869076129831e-159, 5.0210212058826e+203,  2.64478049292597e+33, 0.782342527558416, 8.99031756743878e+139,  8.32653094216273e+247, -3.73164510967208e+103, 1.51148627242586e-269,  -1.19930008775327e+133, 3.14806695734555e+194, -2.33303505494156e-76,  -1.6875836312128e-12, -2.71820691208798e+131, 2.23886972941897e+294,  3.98675654164327e+123, -3.79999367865378e+35, 2.12151329746753e+240,  -5.8504160971348e-09, -1.78015440894665e-165, -4.99454095989087e-294,  -Inf, -1.00170945056889e+247, -8.83433516364025e-295, 8.45935648515197e+158,  0), sdlog = c(3.26075395934872e+97, -7.87463094280189e+50, -7.49401077476156e+101,  -2.11321097042023e+272, -2.94590563967155e-266, -2.23151839023496e-270,  1.15119190232561e-126, -8.3337092381843e-275, 4.47931663177993e+140,  6.44363245366797e-296, -9.7450471314756e+46, 6.48556988942692e+259,  4.02614957466054e+217, -1.5280500865897e+185, -Inf, 2.40355163881358e+88,  9.5910007162465e-24, NA, NA, -5.49456208849408e-309, 9.52339621048084e-193,  9.00097091728686e+74, -2.61974617329676e+45, 0))
result <- do.call(mixR:::loglik_lnorm_g_C,testlist)
str(result)