testlist <- list(gen = structure(c(51163672052718480, 3.3448951821349e-214,  2.04999462035106e-20, 1.0600289178134e+269, 6.65897095438037e+198,  4.07025781900721e+60, 1.70142415233583e-18, 1.39514646675291e+37,  7.22070860394455e+38, 1.90429700172408e-24, 1.83465545600978e-160,  1.25161317771162e-272, 8.4348083117232e-69, 8.05453753950529e+130 ), .Dim = c(2L, 7L)), R2 = -1.97206454500278e+280, y = c(-1.1912554475688e-182,  5.70035433320252e+84, 2.16185398769379e+162, -9.82691002822363e-179,  -2.33515175824593e-134, 1.2018664430354e-270, 4.09272038911632e-154,  3.0102155818194e+237, 5.02701826823236e-92, 2.49984775665763e-79,  1.32955899509303e-44, 5.87837749865891e+90, 1.24571309535058e-80,  7.81834285206802e+46, -1.93747326887755e+238, 1.62283389865236e+287,  17175378964.7782, -1.20268751032433e-269, 1.17299593430438e-171,  -1.02297909638755e-148, -3.46237917693322e+213, 1.2656910903187e+184,  1.13198393686501e+178, 3.71614828259634e+108, -2.82947159152078e+250,  2.19664235884381e+190, -2.43184259562573e+24, Inf, 1.30316752274591e+263,  3.38323502146152e+246, -0.203625442953689, -8.43270365134941e-250,  -2.11036104659765e-175, 1.50273901694784e+261, 4.85447384232669e+264,  -4.48762694991673e-74, 5.85351634236358e+241, -6.65643652222241e-153,  -2838573.62322444, -1.14929312478074e+38, 1.48553994229706e-296,  NaN, -4.95605611929774e-131, -1.00588570503793e+161, -7.73825286347367e+277,  -Inf, 3.3310013415346e+249, 1.59517732828268e+298, 2.89985463575401e+169,  37615155346868.5, -1.24122930730504e+294, 1.30169635334446e+276,  4.86345809598686e+126, -9.31310393116781e+143, -1.24325254081274e+184,  3.50405144273209e+300, 4.19781055377495e+37, -4.08384348537656e+202,  13012452418.6767, -5.91376446111967e+215, -2.10698716779386e+257,  -9.98351965703579e-14, -3.62558672272378e+176, Inf, -4.88762255488544e-70,  4.11246975338306e-06, 5.51881247263428e-63, -3.53973031509835e+224,  4.95745634175037e+136, 4.44773760809303e-132, 474309769.262633,  -1.54495948984952e+127, 6.04302524550347e+294))
result <- do.call(NAM:::emMX,testlist)
str(result)