testlist <- list(df = -3.02408051308279e+87, gen = structure(c(7.66354813638788e+29,  3.07074596377212e-197, 8.9958937311594e-275, 1.09178286142253e-252,  2.22343343358006e-38, 6.26535305269479e-52, 2.28319821698476e-203,  8.26062821373374e-106, 1.85671066046452e+28, 0.000216578742005669,  6.25771404370432e-69, 1.01963918141302e+149, 1.72921304298604e-14,  2.48316259354156e-80, 9.23736704179232e+134, 1.06817503969678e+186,  1.32023570125562e+216, 6.90904844950129e-105, 2.35852991120279e-296,  1.33898259374341e-218, 2.40868832115875e-90, 3.69398712900705e+255,  2.03560294213842e+46, 3.90237819766396e+302, 1.44153683358371e-68,  1.47966389516428e-80, 1.84534767730835e+86, 7.61790672360538e+133,  1.38467628348163e-121, 1.36667032607662e-188, 6.55473868857734e+181,  5.23975414190079e+119, 4.57788588785742e-93, 2.08917385922967e+65,  2.97455894747033e-131), .Dim = c(7L, 5L)), Pi = -8.80104306596673e+73,      R2 = -2.88682404560718e-24, y = c(-3.09165038835628e-199,      -7.55503825009613e-214, -2.22156973197783e-217, -2.34091892955924e-194,      -2.33391425419253e+269, -4.04938730556602e-25, -7.50285172146669e-31,      6.71355010829547e-223, -1.33519036707237e+124, -Inf, -9.59577563252421e-155,      -2.43011158549908e+209, 2.72739756181046e+301, -5.21605813927065e-303,      -4.83270779353827e+238, 7.09185682644887e-298, -3.29907025736581e+264,      1.01695873341182e-91, 5.69918350273713e+222, -1.25306712537203e-222,      -3.41711873866689e-202, -1.08016752907471e-247, 4.48376862350056e-189,      8.27063628226366e+241, 4.80281114469944e-153, NA, -1.83493567292423e+127,      1.96827196473079e+249, 1.03637529811195e-184, -3867879391875820544,      -8.65235773806684e+132, Inf, -7.14521374297515e+188, 3.55195304718012e+233,      -7.47622346187296e-291, -2.75084323019465e-104, -2.29735794166257e-86,      4.02757047215781e-35, 1.91463976283261e-84, -2.59399938090302e-54,      -1.17876506980668e-248, -1.1000534904322e+38, 2.27272432289401e-61,      -Inf, 5.03747622802394e+224, -6.65216017426085e+28, 2.44345899986209e+104,      -2.6031958342959e+29, -1.26935711712283e-51, 0))
result <- do.call(NAM:::emBC,testlist)
str(result)