testlist <- list(df = 5.05134487065345e+182, gen = structure(c(2.57224850735798e-260,  1.205611206293e+184, 8.75642878634439e+30, 1.19107367210034e+277,  6.37461503193224, 4.47589033313661e-211, 4.90770162637168e-182,  2.79298837555249e+304, 225.729327760686, 1.05494900271482e+226,  1.36054374033997e+45, 2.26908897303298e+38, 9.76802029943325e+79,  7.96761978298141e+276, 1.15475880010319e+247, 1.48502991894837e-300,  1.02445200603293e+270, 1.02777176853642e+157, 1.78619621934952e-193,  6.98539324005988e-169, 1.05550454815958e+254, 6.67958813759685e+306,  1.66563367138408e-25, 4.67910886135451e-296, 1.43823531932893e-36,  6.80495532226813e-194, 2.57572893111152e+146, 4.86488190844553e+59,  1.39628316543699e+184, 8.7912644729944e+173, 6.21371273865041e+84,  8.98950609073192e-108, 2.21781811060201e-134, 3.92501132432875e+124,  3.63465385304885e-142, 4.2826361765103e-223, 1.24640516568031e-127,  5.28581534813782e+219, 2.34230853882364e+182, 1.00811251059092e+139,  4.57002532366933e-63, 1.97727120842476e-151, 5.17400681046538e+164,  1.15236653133445e+150, 6.12256599298606e-135, 2.09753043174556e-265,  3.5694968449367e+260, 4.3019561933475e-159, 5.31760433886811e-277 ), .Dim = c(7L, 7L)), R2 = 1.37735434453153e+212, y = c(1.57810239508168e-146,  -4.01287757500043e+27, -1.21595431872608e-214, -1.61174523126998e+66,  -2.38309712948488e-180, -2.78460597310958e-229, 6.06680969931612e-235,  -7.00848122807085e-259, 7.31825874657602e-73, -1.68647794030844e-128,  1.86716517863697e-122, 3.23982813072825e+252, -1.76339769740034e+179,  -5.84879913085824e+231, -9.47465386853498e-36, -1.31267853769986e-162,  -6.82080201478093e+261, 9.0551333453023e-236, -1.78379174199923e-170,  3.7300298441122e+223, 2.32036498943243e+206, 2.32857307976501e+233,  1.07102929225512e-270, 2.20587335306653e-198, 9.27046846008468e-294,  -8.54167187672866e+148, -2.94621819210144e-44, Inf, 1.2315788216236e-247,  9.49707171633449e+190, 7.30123310582199e-137, -2.41220443276868e-32,  NaN, 3.18254054513963e+256, 4.77813668336267e+248, 2.11672219782598e+181,  1.41348730659056e-220, 3.98680586674681e+50, -2.91891209321826e+152,  8.64809166262212e+21, -1.44708275171179e-186, -2091431041640552192,  9.41259417220525e+46, -2.72110867624293e+286, 1.44228186720904e+96,  1.84613640047479e+163, 1.23631877751714e+87, 3.81926733659377e-217,  -1.75205672615674e-82, 4.58009933881441e-31, 1.12678695599037e-275,  2.00552235443226e+66, 3.66135806630214e-184, 1.47378595279832e+280,  2.08474417488267e+152, -1.09682931075297e+244, 5.71143758219728e-245,  5.93809451108808e+145, 2.96546775083717e-75, -1.06782160058764e+225,  7.03481360757428e+24, 6.06332656197965e-175, 1.95053339001682e-74,  -4.25261165417607e+68, 6.86193453406563e+131, -1.39231945031486e+174,  2.25399272646002e-277, 286204.315705852, -1.13999579853102e+56,  3.20999279841634e-283, -8.19657544377251e-135, -1.23506825914778e-253,  2.65083404238782e-65, 1.79963238504407e+70, -4.27761327329813e+186,  9.82652396515993e+246, -9.46942380155005e+258, -1.14355027161773e-166,  3.58416182758509e-138, 1.01545437098364e-130, -8.09458381345372e+121,  4.27975863503935e+305, -Inf, -9.34090836819975e-184, -3.82951518384761e-248,  5.53961520979164e+226, 1.63761529528146e-17, -2.3555605016942e+167,  -Inf, -1.07340428671946e+45, 0))
result <- do.call(NAM:::emBA,testlist)
str(result)