testlist <- list(df = -2.25544678496687e-224, gen = structure(c(5.06678391208732e+120, 7.85845879940549e-254, 4.34772600670773e+270, 5.01429451093824e+59, 2.45360005901627e+157, 2.70324652439902e-232, 1.68064156169705e-137, 2.38691449502127e-266, 0.000178911121052962, 2.10563485058688e+28, 1.64129572348646e+178, 6.08542550793061e+179, 5.39620775946418e+296, 3.27758843128477e-189, 1.5925142811434e-184, 1.09386652381566e-13, 3.74676658334856e+215, 3.91548324142946e-57, 3.92320012996314e-206, 1.10155853831535e-197, 1.12751079206127e+145, 2.34345689427916e-158, 6.66600985488513e+143, 7.15694089428271e-49, 3.52961996609138e-34, 3.20958938924726e-121, 2.47124358164033e+63, 1.7687095243392e+239, 2.48547977367643e-218, 4.33296511899254e+75, 3.36732085907987e+71, 2.83016114052332e+119, 1.29060702623402e-171, 1.68313006713459e-118, 7.68781514407329e+222, 8.85031145722084e+210, 1.51860445196316e+148, 2.7365424587667e-151, 5.32552654124004e+131, 1.12984236173029e+307 ), .Dim = c(4L, 10L)), R2 = -2.88554532062004e-111, y = c(1.66617804929644e+26, -1.63179907868308e+23, 1.53818283718995e+74, 5.24923176631109e+60, 5.80215542469327e-261, 5.44347481407261e-130, 3.39126388848058e-275, -0.270902043020492, -6.27624337424616e+135, 6.67848898108759e-240, 8.89695078165539e-275, -2.52387693768416e+20, -9.14314623866697e+142, -3.1357004327129e+68, -1.63179907868308e+23, 5.57471646044262e-195, 4.7410036584762e+208, -2.43103127711488e-303, 8.54861219094666e+228, -1.24449739687318e+266, NaN, -2.27350943182589e+221, 9.8327143261927e-197, -6.7403075942979e-29, -3.90111502753953e+229, -2.99309428081962e+47, -2.40297506284773e+138, -1.71952518626404e-200, 3.8983989278188e-99, 1.28962478034817e-124, -6.54828919944179e+267, 2.84431325757675e-212, 1.14288230044964e-72, 3.86069165842509e+198, 1.38093851865424e+295, 4.38692153124961e-88, -1.86832718077224e-221, 1.80175732550912e-114, 1.62246352407745e-104, -8.35470359228086e-156, -9.06304825701903e+73, 6.11785164260614e-05, -1.63179907868308e+23, 6.75659245908795e+75, 3.5275068578157e-33, 8.71809757153155e+173, -5.36535244155255e-259, -2.69479792181853e+248, 1.47121125627509e-262, -1.98766698899384e-237, 1.88844587463742e-114, -3.90860648948839e-95, -1.83170392904319e-143, 4.02592583736625e-199, -8.9291682017581e-74, 2.98812614337709e+202, -7.95037689598548e+153, 1.29063922681271e-71, 4.63584049434738e+169, -2.04454271573662e-91, -6.87832956244511e+130, -2.47591837049354e+56, -1.1368339281487e-53, -6.03177294300657e+216, 8.22852803105128e+177, 2.40050407540223e+97, 3.77392674902906e+287, -8.17497579421074e+70, 1.93419930068791e+239, -1.63179907868308e+23, 5.226895621898e-185, -2.51023676490418e-107, -1.7014094363795e+182, -1.54248613512483e+153, 8.12618535222415e+197, -3.69044576013689e-174, 81610866823664074752, 1.20513264949583e+66, 0)) result <- do.call(NAM:::emRR,testlist) str(result)