testlist <- list(gen = structure(c(1.18675431913778e-163, 1.68281002293894e-251,  1.79752211673209e+175, 1.59919636035215e+49, 1.47841293466339e-198,  1.19133829357417e-213, 6.16528910434709e+237, 5.02506064196992e+240,  9.7869506298032e+303, 3.46658411293647e-124, 5.60897821982599e+249,  1.34335246841405e+145, 6.52748750293401e+192, 3.19651861177125e-253,  9.54796062802807e+272, 1.13232515388337e-295, 1.09406899668248e-290,  1.32869465361148e-288, 1.25979729989009e+176, 4.7312016194552e+124,  5.18922821741626e+256, 2.55449596220747e+214, 4.28034199169634e-44,  2.67373875947772e+101, 8.91820065117115e+22, 2.95220164385915e-168,  2.57681077646198e+204), .Dim = c(9L, 3L)), y = c(3.15925283966261e+187,  NA, -1.93315814214649e+292, 1.92789592884935e+124, -8.94694839064233e-60,  -4.49918142609989e-100, -3.95308400279226e-174, -2.34721514800511e+118,  1.95505260594238e-36, NA, -7.30714851752003e-259, -5.65121196070937e-287,  -1.85020239922105e-289, -2.21497310179762e-233, -1.31317215389492e-161,  5.54891508484922e-250, 3.85017304419542e-225, -4.41293770821556e+87,  -3.1336805382953e+174, -1.93946040701722e-149, -9.03093148936139e+258,  3.41492865742874e+276, 1.06490153933037e-226, -4.77821519289497e-210,  4.61932801885675e-214, -8.68816555311167e+186, -2.14714008183252e-228,  -3.66382803460893e+166, 1.53862179379629e+109, 5.83998944774529,  -4.37109678583729e+22, -2.87312908004033e-29, 3.4824050582917e-126,  -5.09847565608569e+286, 9.59927682154347e-220, 1.19567065095892e+55,  -Inf, 6.10894977000224e-294, -1.30016895244877e-282, -2.38287030731495e-188,  -2.27974576018089e+25, -1.9932024626309e-80, -2.37147778782234e-220,  NaN, 2.10254181146551e+127, 3.81879800867872e-131, 9.99154523953629e+115,  -1.35264432126602e-226, -2.37266426225727e+265, 7.43699853187887e-246,  Inf, -3.76195258976601e-208, 1.22549647287723e+129, -1.14254750775399,  -3.79394928745761e-07, 2.05091748194085e-38, -5.5943719421474e-78,  -3.23185075067014e-81, -1.16846313266719e+42, -7.64488221039419e-208,  29006355207.7322, 1.49598016304491e-95, -3.03622898542127e-176,  -9.56810088641561e+306, -3.92253771663416e+241, -1.44869749214775e+162,  -1.77180794148065e+203, -3.98418381772997e+164, 0))
result <- do.call(NAM:::emGWA,testlist)
str(result)