testlist <- list(X = structure(c(1.51106896480631e+266, 1.21524481955539e+40,  3.85141076871921e-277, 3.05221328469499e+47, 7.83972564170521e-292,  2.61016514454237e+76, 2.12803269771874e-158, 3.90802317679394e+103,  6.42686323942739e+55, 6.72550809748028e-27, 9.39942909659545e+23,  1.32485255228138e+306, 1.06010689297101e+241, 1.64436103894373e+216,  4.91764034594359e+222, 1.84705736715333, 3.54635180833561e+136,  1.7661500203075e+178, 2.56840268642048e-179, 4.42277272441614e-76,  12163275220.2453, 6.95891953991376e+74, 6.63152964086656e+62,  2.77642244477521e+110, 9.94872727204501e-177, 7.2374209298127e+103,  1.82802831855283e+269, 4.42339027747076e-283, 2.56135185187074e-306,  5.78188670677797e+189, 7.86230136709468e+121, 13540046012031.6,  6.31462339609148e+304, 1.48336404577635e+290, 1.50178216794817e-68,  9.99116543020765e+98, 8.53884949692197e-281, 3.05213125565348e+184,  1.30435057676046e+285, 6.81930855341312e-118, 3.70198384476019e-181,  5.31683333876793e+172, 1.3190377504477e+118, 1.11456006253395e-237,  7.77528148787836e-100, 3.01047935250046e-166, 4.6127352629719e-51,  3.10400916691558e+127, 5.64705005692002e-223, 1.0307363565099e+297,  721.786087388276, 1.54172291338205e-40, 3.08765276031411e-16,  2.45819089899571e-62, 7.90744764653525e+107, 1.95207156808083e-254 ), .Dim = 7:8), Y = structure(c(1.80202181284257e+260, 2.78078245753922e+250,  1.34471548089185e-215, 1.98438109409395e+239, 116649745569757,  2.25643716478455e+275, 4.79789208399357e+205, 1.3892848454666e+233,  1.24721687701163e-179, 6.26189266027026e-288, 4.5689511947403e+97,  1.25156005234951e+196, 4.25857822356615e+109, 2.85774639182571e+194,  1.71351521696946e+172, 7.7364958643633e+184, 2.19164532973998e+288,  3.81995945846295e+83, 1.41531434144758e+178, 7.65225769166185e+24,  1.83363197371455e-35, 3.09370476686168e+152, 6.28137665600741e-244,  3.45288993169536e-133, 2.10419902784918e-130, 8.18876852654939e-280,  1.53990900627185e+242, 1.99786265470995e+260, 6.61309357587772e+162,  0.000231095598183493, 4.09468972174104e-161, 3.61746328085123e-308,  1.245767096665e-49, 1.66569210729266e+179, 1.03602358126489e-74,  9.8386379181596e-234, 1.55097773238234e+90, 2.10142641902825e+142,  3.08694590176781e-303, 4.24298396522552e-221, 3.05046484190529e+55,  1.27820873628222e+209), .Dim = 6:7))
result <- do.call(NAM:::mrrV2,testlist)
str(result)