testlist <- list(X1 = structure(c(1.65033414221104e+239, 7.85730290698647e+138, 5.056088986025e-126, 1.84045224964582e+159, 2154214375180397568, 1.36619899805126e+81, 5.66161011244435e-44, 2.5655829530872e+85, 4.34479230442172e-12, 1.81408137190626e+242), .Dim = c(10L, 1L )), X2 = structure(c(25194046961.9818, 4.61580326791823e-59, 5.89494280067685e-242, 2.27255706286162e-292, 6543361093602865152, 8.45671919830433e-250, 7.92124315936267e+44, 9.09419173643118e+114, 2.83424490175552e+81, 3.65401766293545e-61), .Dim = c(1L, 10L )), Y = structure(c(5.25765096109001e+242, 1.80692354582937e+204, 1.69618675802019e-176, 4455259183207574, 6.26584800951625e+88, 9.66832985121224e+125, 2.21499758869776e+180, 9.77360389387874e+57, 4.81164061531843e-154, 1.94425365088168e+82, 6.84959901065769e+245, 9.4059721758345e+285, 1.1422745709903e+95, 7.14556057207993e-60, 3.85528503873057e-103, 5.6601545542765e-189, 9.67986675459102e+79, 2.90604615874286e-221), .Dim = c(6L, 3L))) result <- do.call(NAM:::mrr2X,testlist) str(result)