testlist <- list(df = 2.92721446985209e+265, gen = structure(c(6.7502378063162e+203,  7.52097939419513e+224, 8.1507282636049e+263, 6.12274267958425e+258,  6.47048037851616e-109, 1.1999655743485e+154, 1.93448393809351e+290,  2.46222115073399e-21, 3.6722205294003e+208, 1.21178538749356e-80,  4.02592310886468e+279, 7.52686468535006e-85, 3.66232076174359e+245,  2.49102216903483e-44, 4.8833237011966e+191, 5.57917910252526e+38,  3.01333264558963e-71, 2.13566163366435e-123, 1039834460104608640,  1.4719584330127e+64, 9.22858333270622e+116, 1.41884971944947e+225,  1.47871023830451e+166, 1.32889042893958e+63, 3.62957135802745e-171,  7.41262174972438e-296, 2.55732924270519e+305, 7.91160720448735e+30,  3.31587142417819e+245, 1.51681395686011e+150, 1.615552897542e-275,  3.2074027142227e-246, 1.90002175857204e+232, 6.20693231855729e+293,  3.0067941690691e-270, 7.3414972964846e+276, 2.57148252191464e+272,  1.51011506515189e-187, 9.40631277100401e-153, 2.38973827398196e-229,  2.3470084970861e+37, 1.2108745715372e+263, 4.99312260182463e-226,  3.38901732837972e-188, 5.35407178272182e-201, 5.38193043887535e+148,  6.70821660915197e-308, 1.44630553431347e+57), .Dim = c(8L, 6L )), Pi = -2.98288970645946e+113, R2 = 1.51732986897856e-238,      y = c(-1.70782424529713e+298, 106.042960824178, 5.63968893780348e+268,      -Inf, 1.6008484518707e-243, -1.86303592752192e-55, 3.36712349708886e-268,      -9.40835974073926e-09, -7.11508284139457e-48, 1.20927617785372e-156,      -6.56888571476889e+201, 1.6496643866078e-299, 1.29140874381862e-254,      2.08541774104241e+177, 1.33456884964738e-160, 2.41199929834762e-257,      4.3242368860491e+40, 4.51244943714895e+25, -4.05376357298723e-54,      -3.09905765605087e-120, 8.00216900393744e+250, 1.00415581265735e-223,      7.88862948583049e-303, 2.95636918365549e+90, -6.01319021603855e-93,      -5.70970928883371e-26, -7.1794889648768e+168, 1.41789802722939e-63,      5.23769266808291e-236, 1.00189954072699e-63, -2.07839661439535e-280,      -6.76197345554388e+114, 1.15447235846808e-255, -2.2913485815611e+214,      1.29349763225637e-211, 1.93949325465694e-169, -1.38866823437574e+238,      -7.71154341683449e-103, -5.113771021833e+299, -4.64699346718136e+250,      6.37701410036669e+288, -8.39147146023131e-143, -4.07784073108484e+98,      -3.51435651393501e-261, 1.23482315341021e-281, -Inf, -3.53635139462909e-92,      -1.26158453302869e+303, 4.95640609222949e-167, 2.04427269276293e+168,      1.88623766492903e+20, -1.28733960499009e-22, 2.93199686170693e-100,      -1.69197308234492e+282, -4.56481760621916e-213, 2.93700056634387e+126,      -1.31968325787742e-254, 3.88837348508284e-109, -1.16538169098187e+21,      5.89521305615491e-134, 1.01920795975018e+285, 2.33863344175365e+20,      -3.33525352015237e-287, -Inf, 1.45606415446167e-272, 3.08725544465763e-296,      6.37052017330368e+289, -3.47079157454113e-35, -1.94801175172141e+292,      -7.15696952154936e+228, -Inf))
result <- do.call(NAM:::emBB,testlist)
str(result)