testlist <- list(K = structure(c(1.07732743046826e-171, 8.10357800897287e-153,  4.59665867380046e-246, 1.73042104457226e+261, 1.45232153925067e+165,  1.71459051837789e+198, 2.38843014410612e-243, 4.47367012735769e+283,  1.73874234209049e+139, 3.66028178041357e+162, 2.09513600862557e+270,  1.04197718350673e+292, 5.69441777971752e-08, 4.79638319839524e-146,  6.9624039866481e+124, 5.82839650303897e+47, 1.57985770142785e+59,  9.01955460973512e+145, 2.77151223014217e+259, 3.35240262350147e-09,  1.15175565551563e-85, 9.6666089583664e-307, 6.75175411166982e+124,  3.20884857706833e+53, 1.8103042669498e-266, 1.73772410411178e+213,  6.39151692834136e-82, 5.96125341413278e-164, 2.8913624193195e+69,  4.13687183413728e-231, 7.54775027125443e-224, 4.26906815865486e-246,  2.21529446364646e+269, 1.36490561783737e+85, 2.01830684540074e+294,  2.59449322225973e-115, 4.02387317262671e-263, 4.47648350285203e-83,  3653.65595121437, 6.02093487673263e-284, 2.56400657069772e+116,  5.02245802937165e+272, 2.10855970757155e+114, 1.02076615537462e+76,  5.32611405630291e-201, 0.00733319233269857, 2.91898749741507e-15,  1.57787976693394e-76, 1.83409715237226e+262, 1.79854800430546e+97 ), .Dim = c(10L, 5L)), Y = structure(c(1.38367754250054e+69,  1.13533946011112e-168, 3.64062134588403e-305, 2.28482806858229e-120,  1.68245233959428e+105, 3.35654804395991e-160), .Dim = 2:3))
result <- do.call(NAM:::mkr,testlist)
str(result)