testlist <- list(X = structure(c(1.52873769248379e+109, 1.78143727644757e+274,  3.79569444195532e-45, 5.93690268045933e-139, 2.72173926631204e-59,  3.46493494284107e-85, 1.09330300627626e+236, 1.65150283578873e+273,  2.2212505732197e-306, 8.15931994550368e+38, 4.83260360462464e-264,  3.1602090796115e+232, 5.39309418045077e+35, 3.80314678511545e+276,  1.57202254090594e-52, 2.14640899327524e+35, 3.03293888886798e-297,  1.44533903013133e-115, 1.91383590258486e-231, 7.60388938459378e+108,  2.26485497144864e-73, 1.87240721585702e+90, 9.58661151832637e+267,  2.97261252429661e+82, 9.00888767972857e-26, 4.64630785917859e+64,  9.66894703315804e+87, 1.10193272469553e-32, 1.47140093314139e+74,  1.88717414797663e+80, 1.25462551581374e+246, 3.20220270558781e-186,  4.36124869219871e+192, 4.7234867211296e+157, 2.40957905587023e-151,  6.70585638198929e-54, 1.12591478240521e+188, 1.37051721189822e-06,  2.47237027265434e+141, 6.29689683000227e-269, 9.33306452607504e-99,  3.03270854703051e+265, 2.71214604727701e+223, 7.62007815970659e-77,  9.45183274029666e+140, 3.07915346293611e+23, 3.15332081996987e-308,  1.45702847360731e+226, 3.31372381184368e-149, 2.08792980846709e+210,  3.23887057265544e+270, 8.40080572343815e-241, 3.13908784223229e-37,  6.71977542541971e+182, 7.00170892853046e+160, 2.71548615375532e-34,  5.55514971715558e+167, 1.8797757792568e+123, 9.46804773358904e-210,  1.91549188680512e-19, 2.84055669972463e-203, 9.70745166604778e-297,  3.11268572432618e+171, 1.87391538998935e+75), .Dim = c(8L, 8L )), Y = structure(c(1.09276054315211e+162, 8.53933298872231e-141,  1.46492261976541e+158, 6.39450156306493e+187, 6.42407816678613e+194,  3.42682384459372e-216, 5.41506669100718e-245, 2.57463488418005e-188,  1.39347441822425e+289, 1.40696891510979e-18, 4.06294369625694e+31,  2.19216462279883e+249, 3.1187409164796e-217, 2.02365784559072e-273,  2.39858273803812e-126, 6.36374356127534e-235, 2.25971541192438e-266,  1.03045677423396e+144, 2.72136575797613e+254, 4.47975108642637e+273 ), .Dim = 5:4))
result <- do.call(NAM:::mrr,testlist)
str(result)