testlist <- list(alpha = -1.86578883789805e+256, gen = structure(c(3.51717968818147e+276,  1.26217642061503e+303, 2.16951552437276e-50, 1.42775424140385e+29,  7.43166794673685e+217, 5.50634782850172e+131, 1.99823208614144e-124,  4.48183848947735e+207, 2.01264058748702e+121, 6.01202720326984e-103,  6.83795161186921e+36, 6.19740298143953e+117, 1.44343468698267e+271,  4.9776595511806e-210, 1.77107973819217e-172, 2.90009538955293e-09,  1.50698076959833e+22, 1.24055326796773e-271, 4.11735378552045e+108,  1.54268570181245e-217, 8.54031407174272e-106, 3.35699821123612e-185,  8.09536017270156e+97, 7.18289777632381e+62, 2.28396648819175e+120,  1.84995912403343e+122, 1.77647323289718e+164, 1.11207856132166e+282,  2.61231586356277e-79, 2.19228414697475e+189, 9.58130410691397e+174,  2.56065073878455e+238, 1.52597819328389e-304, 6.36911083531343e+149,  2.01597930796942e+62, 2.42333161688226e-144, 9.89003393243781e-235,  2.23406757584783e+198, 8.9255257934965e+289, 4.31010023012535e+162,  7.95127118488583e+102, 1.3627111658508e-214, 1.97337327655264e+176,  1.18812726576203e-49, 2.63637484900092e-45), .Dim = c(9L, 5L)),      R2 = 2.7774092763286e-33, y = c(1.2804716371351e+219, -4.32818570044253e-193,      3.73901271875121e+180, -1.38707810757858e-109, -8.80568312893422e+208,      8.50751844833796e+300, 3.54517047891429e+74, 9.85781527708462e+297,      4.02901950584164e-213, 4.53725978353036e-207, -2.67540447246508e-61,      -5.65340132739339e+106, -2.30944127835205e-275, 1.33895651737226e+157,      1.19839910555662e+70, -8.12530884577588e+94, 5.08725580053646e+39,      2.37670306966689e+261, 1.65570390396492e+142, -1.70483989134069e+131,      -7.50695089820293e+30, 9.04790579466146e+187, -5.89109594719464e+275,      Inf, -4.73886150149773e+68, 1.82291320377423e-301, 8.96326675977328e+237,      -1.45215820387556e+162, 6.04016881422814e-200, -2.08928208127421e-227,      -4.94383508425558e-216, 4.101165003194e-58, 1.28138711582668e-188,      -1.48337197135534e-298, -1.67730231796253e+192, -2.4005880014623e+132,      1.94021956156373e+117, -4.55167658200535e-164, -7.29042238168763e+63,      -4.16168271202441e-107, -3.61834095209576e+164, -4.93720337813108e+236,      6.59726686638396e-18, -1.50415139425896e-127, -3.38540663761598e+263,      1.24254814009178e-104, -1.31230530887456e-104, 4888098009.72424,      1.02764243247658e+88, -7.15334487901262e-211, -2.2336856411256e-162,      -5.01015103114616e+118, -4.19135205241892e+252, -1.15779901598505e+220,      8.16995063736108e-202, 1.62608061924974e-72, 4.27836586556738e+95,      -2.6626128138124e-39, -3.45204372204458e-237, -3.74041686676493e+66,      3.18802156019726e+205, 5.23649774365411e+54, -1.46834954780253e-125,      2.247461263049e+150, NaN, -1.75029793658937e-94, NA, -8.12530884577588e+94     ))
result <- do.call(NAM:::emBL,testlist)
str(result)