testlist <- list(alpha = -5.64819455437884e-223, gen = structure(c(108731309795535, 3.3484514465965e-253, 4.58449508121984e+42, 2.87813479628052e+106, 3.43745270903077e-291, 4.55759519976884e-115, 3.15359080725278e-33, 9.02768481950983e-218, 6.97829473559766e+100, 1.03902874126313e+122, 4.45481909216001e+218, 5.67352737808952e+121, 6.43460072575417e-217, 5.08007549526474e-169, 1.33669999168773e+132, 9.32290137903613e+205, 7.74347345892537e+197, 1.47086530267548e-94), .Dim = c(3L, 6L )), R2 = 1.22965902476787e+175, y = c(1.78974065878316e+102, 5.80589554714944e-08, -8.5293310774976e+85, 1.52953819139133e+78, -2.02750230309222e-306, -4.08052215534151e-247, -1.65284420911633e-249, -2.47190257083715e-07, -5.27115880154403e+221, -1.83191912884529e+38, -4.48877187053845e-305, 1.22685836569279e+300, -1.63001307542075e-80, 4.51469992930262e+49, -6.64372505019532e+65, 2.71654106405064e-127, -7.75479344702465e+85, 1.15669234158247e+102, 68245755584316, 5.28610099919650e+39, -3.09480432393053e-289, -3.01471434374786e+115, -1419360.9525351, 8.89481087476302e+152, 1.81218804485244e-207, -2.83833020556256e+234, -2.75669606688669e+159, -5.83026294550591e-223, -1.74015651824869e+223, 6.37077888591619e+198, -8.50072077297641e+215, 3.73899052784668e-251, 1.10684233432309e+301, 1.5848154489817e-51, 8.98312531776915e+140, 2.03253614833798e-82, 1.30631652823757e-42, 1.97185631302236e-246, -1.95069101219139e+28, -3.37461626174718e+192, -1.06660731298162e+303, 0.769483023701721, -6.57874437651589e+49, -6.7026113421871e-279, -9.19414002968837e-185, NaN, 1.72788793745628e-139, 1.54700475895022e-233, -2.39720305578859e+42, 2.29201191678515e-122, -29646732831.2177, -8.91760448970305e-259, -3.06474791932983e-175, 1.57872023340735e+69, -3.90464262121455e-134, -1.73457324466625e-108, 2.95371422121574e-16, -6.90274005553812e-24, -7.77781067607344e-80, 9.14125694916526e-89, -3.28991625845614e+204, -2.86807080251284e+234, -1.28984393969682e+23, 4.59099173977198e-26, 4.29579622432894e-24, -3.53069835498741e+250, -3.6976843742133e+94, 2.73602757403547e+169, -Inf, 1.4936705840232e+304, -5.42137630410487e+281, -2.66700600534186e-66, -2.53902024858001e+253, -3.08410333832831e-85, -1.18612535131862e-14, 1.85500853437293e+120, 5.25601962739784e-153, -2.35205598306876e+105, 40398759395901632, -1.07386753548605e+174, -13.7866443173429, -9.37333503229811e-71, 1.28448640902948e-222, -6.85466774187744e-238, 2.51371241565717e+301, -1.18645300163727e+170, 2.49995700471164e-236, -2.62509545302511e-116, 2325349420337.19, -2.3373622880715e-42, NA, -2.41754635454027e+182, 1.76080814004101e+242, Inf, -6.76992433791859e-295, -1.07479635076787e+115, 0)) result <- do.call(NAM:::emEN,testlist) str(result)