testlist <- list(test = structure(c(9.6566497869722e-138, 1.12312058903659e+67,  5.21511001611543e+124, 8.6503686854066e+141, 6.13023945589072e+200,  1.69614843680778e-155, 7.22339319760805e-33, 1.35862583250383e-43,  3342219367185158, 6.05650443209315e+283, 1.35115730057744e+27,  1.17360253357375e-186, 1.85510654702522e+48, 5.33546793903894e+303,  5.11648996830913e-18, 1.07322046960158e+70, 3.39486543599185e-33,  1.72388767402667e+235, 6.25831037385728e-105, 1.86969826634674e-35,  6.40827034854793e+247, 3.72835838587681, 1.16114532102453e-286,  1.53718072503173e-06, 1.0296724820476e+183, 2.66361183764447e-73,  1.37274624734795e+81, 207333.657250508), .Dim = c(7L, 4L)), train = structure(c(9.43526139058433e+139,  3.94921565672563e-29, 6.60463784179162e+59, 1.0060756554805e+94,  1.15747338417931e+303, 1.13474955529069e+33, 5.41513331549243e+274,  4.89891348932306e-255, 2.89544512976836e+144, 1.78784475206003e-09,  4.07029913476352e+140, 2.3372492340084e+117, 1.13202394519716e-57,  6.83335902273496e+74, 1.00894870826658e-237, 1.58408350472085e+42,  7.08911382516244e+24, 1.51743897262224e-168, 4.82107831988541e+247,  7.66949829981631e+145, 1.123062587557e-88, 9.980400733017e+185,  1.24339812395487e-61, 2.56121990952523e-55, 5.45160974600386e-288,  6.3874757120944e+248, 5.77416967560351e+82, 4.1478980895023e-229,  5.9067553290527e-173, 2.79573618519354e+190, 7.77352994452046e-15,  1.69060518103595e+199, 7.76595343392254e-230, 2.90151732547227e-223,  1.97479516356035e+59), .Dim = c(5L, 7L)))
result <- do.call(ipft:::ipfEuclidean,testlist)
str(result)