testlist <- list(x = structure(c(1.22014336639456e-194, 5.1155403541046e+210,  8.04516108867195e+29, 1.20383964697469e+191, 1.35214038946358e-283,  7.05484006754906e-304, 1.28294757936704e-71, 1.29716669648508e+39,  4.91524676267482e+201, 2.18377730218817e-84, 9.78459958782819e-21,  2.70352360355043e-65, 1.07040843902965e+57, 1.37805005107754e-213,  3.84436639324432e+268, 9.51914577908485e-215, 1.11480482638631e-199,  5.88579496757423e+161, 3.93836315765303e+223, 1.25777738112305e-290,  1.4504316766227e-244, 6.97710674352919e+120, 1.62998457691141e+274,  7.04903287643461e-35, 2.21216641216046e-146, 3.18558775078136e+112,  2.04362517392597e-305), .Dim = c(9L, 3L)), y = structure(c(1.59208970631923e-273,  1.7748494819697e+135, 2.1254264543749e-290, 1.51004188239681e+248,  5.83609699958062e+79, 7.93000083153678e-283, 7.51633831592569e+131,  2.19033651284227e+76, 2.11370930181846e-29, 7.50310609325041e-301,  1.52275702213367e-263, 4.61903972520411e+31, 5.26372661973705e-23,  3.95259689049795e-197, 6.81416284008754e+226, 7.3641728279545e-49,  1.4150314358438e-247, 3.91768508252944e-248, 1.03432985479046e-182,  1.12664467105486e-135, 3.93448354913446e-12, 6.41842229459964e-67,  3.46246893920946e-304, 5.62572288536514e-306, 8.87201988842859e-78,  2.32981088273504e+211, 1.29513549080823e+237, 1.83701837771861e+258,  9.22612329514369e-299, 1.12413989919419e-32, 3.74955056097708e+268,  2.84085376916767e+87, 4.72854890586106e+61, 6.56815936541618e+259,  1.26705431102584e-236, 1.32340060852197e+170, 1.26051235196368e-188,  1.2242067933495e+117, 3.82583640158312e-128, 1.53975290210394e-93 ), .Dim = c(4L, 10L)))
result <- do.call(lsbclust:::LossMat,testlist)
str(result)