testlist <- list(K1 = structure(c(7.16249338212783e+275, 2.64798576653962e-281,  6.01804306005635e+169, 3.43720058711414e-146, 1.59036597264128e+80,  2.78686953084931e-272, 8.18978409780349e+70, 2.33763952050367e-128,  1.04290101691326e+28, 6.95203874723036e+304, 3.33836256885039e+255,  1.28941788096926e-153, 2.95487917047405e+104, 1.08418450627704e-195,  1.41456854761101e+244, 4.17423205209529e-285, 1.62560708664053e+22,  2.10456117334873e-186, 4.5171279378145e+285, 5.98336058078111e-172,  7.42403066856979e-184, 3443.66508161579, 2.10597909146598e-83,  2.0599727034426e+139, 7.12751903323259e-265, 1.22939492536639e+146,  5.54020382985335e+186, 4.04152930333281e-108, 4.23152685519051e+179,  6.37072238011638e+89, 1.95794076009612e-118, 2.2947497329955e+120,  4.74509620201431e-201, 1.2454297590195e+48, 6.63253449358285e-180,  3.05837144244907e+118, 7.67300040584554e+269, 2.66605939476874e-185,  1.83563890572289e-137, 6.97387303192865e-264, 4.05922789958925e-224,  6.86651393533671e-299, 1.88946158275894e+177, 2.24630708147869e+76,  6.94963622718603e+58), .Dim = c(5L, 9L)), K2 = structure(c(1.76540220040335e+265,  9.37517635655095e-65, 4.77059440505307e+187, 5.27977128630879e+275,  7.11292445522439e+126, 5.03777177233139e+258, 4.64495622160862e-201,  7.93855757988236e+100, 7.35826213937989e-94, 8.87178064958175e-185,  6.65963949234162e+283, 1.95742620538832e+174, 5.4421362337572e+279,  4.21864972045876e+38, 6.26185970789021e-145, 1.66479865472846e+97,  6.08738618056222e+188, 3.24183997238292e+50, 3.11342581570601e+174,  2.59328253002694e-209, 1.26760076824715e-285, 1.14093664153303e-158,  7.59330989219033e+244, 7.77757875376845e-117, 3.95980378936363e+71,  2.97767901094456e+93, 2.71535238506991e+223, 1.07726534934878e-220 ), .Dim = c(4L, 7L)), Y = structure(c(2.14005754531749e-127,  1.40195244954119e+104, 1.15701492791767e-270, 8.06704279013224e+182,  2.76502097335687e-182, 3.69491405048897e-46, 6.68927815537392e+214 ), .Dim = c(1L, 7L)))
result <- do.call(NAM:::mkr2X,testlist)
str(result)