testlist <- list(DataPoint = c(7.44247278878689e+167, 1.96965914170575e+161, -1.24515016212359e-302, 9.8233636887496e+173, 2.26858930211441e-144, -1.76336587691799e-146, 6.89198638688331e-16, -3.12834085357695e-141, -1.08944408762687e+168, 4.17240669777142e-94, 4.40030939866346e-104, 1.29493647728381e+82, -2.71808657519255e-303, -8.28135934643801e-129, 3.20571581696069e+203, -2.9708786540342e-146, -2.19597463345036e+238, -7.5309507138046e+149, 4.41796621130298e-132, 25440941.4715393, -2.93775018193422e-205, 312001.301748565, -4.44532817742259e+151, 2.24217082251943e-53, 3.35239139395256e-109, 2.88709318812696e+212, 2.15191911289401e+45, -44115882.0039331, 8.08979225180365e-53, 1.42183769867314e+117, 8.30466627763038e-99, -5.93982273611928e+121, 9.44221597647027e-83, Inf, -7.61994623843013e+180, 5.10985100743696e+40, -1.083676965598e-157, -2.62432077079225e+150, 6.50101440120612e+109, 6.6381041781773e-271, 0.0161420842743485, 9.64251786925452e+112, NA, -3.5664416907775e+109, 1.76603747823653e+43, -1.11611627020061e+137, 1.8394812719652e+260, -5.47568986309426e+296, -3.97796164605664e-278, 1.71413737247151e-173, -6.95434312995192e+69, 2.58502885601156e-306, 5.4409214459328e-229, -5.50335197234796e-198, -1.32743469192619e+167, -1.56407860015911e-246, -1.12953498840335e+163, 1.80706790948527e-304, 4.69865904111854e-299, 1.1024377781149e+26, 2.11205434383819e-29, 6.03381103444282e+68, 1.7320912499434e-172, -2.14434458340427e-37, NA, 2.17774015776639e-201, 5.10985100743696e+40, 1.53980742636587e+41, -4.37610108636352e-166, 3.54225819144933e+236, -7.92817988620995e+84, 1.78840143105431e+191, -1.43074234121173e-221, 5.54992203074931e-232, -1.53394646624671e+57, -5.01921837420299e+96, 4.38703805559412e-71, 0), DistancesToBm = c(-9.09200691334197e-63, -3.08571937925898e+79, 8.69584108358109e+294, -6.36419377225223e-186, -2.67944955254852e+109, -1.83432257697931e+225, -2.38440744698869e-65, -Inf, -2.52310074016394e+168, -1.17516915532739e+269, NA, -1.56613243292294e+122, -2.93755454610185e-05, -Inf, 6.7962240991481e+93, 1.59534643341158e-115, -3.09310281471336e+175, -3.91213457040102e-292, 2.55025566825303e+98, -2.67745095409552e-268, -2.42625202633924e+233, 2.53294561712301e-210, 7.29426967256411e-220, 5.65329858966928e+166, -2.60713415898557e+20, -5.08437991778127e+161, -1.77971218002839e+42, Inf, 1.89934098703787e+198, -1.68604838296006e+42, -Inf, 3.42559548844971e-165, 3.79935573601316e-40, 0), indices = c(-2.93440725213273e-168, 1.51982152039403e+138, Inf, NA, 8.31296632398077e-27, 1.40127841151356e-129, -1.30219207879154e+121, 5.10130829715141e+96, 5.22090049496821e-85, 1.50153288105651e+285, NA, 3.56934104116285e+79, 3.13903822159706e+99, 0), LearningRate = 0.00219300692176911, Radius = -5.40640814311894e-46, WeightVectors = structure(c(1.02704219902841e-184, 1.46129869093179e-171, 0.168475842908542, 8.80706176149903e-109, 2.8946283446462e+196, 6.02488343902677e+137, 2.9953688657784e-30, 6.88666653371082e-35, 2.72124729852891e+149, 4.95581537399866e-240, 1.23581152878764e+118, 7.5188356347817e+151, 2.56794654815936e+20, 0.41622924941304, 2.42276405771402e-203, 6.0859757654873e+212), .Dim = c(4L, 4L))) result <- do.call(Umatrix:::esomTrainedWeightVectorsMexicanHatC,testlist) str(result)