testlist <- list(i1 = 1369182364L, i2 = 1038386905L, X1 = structure(c(1.04663267067784e+263, 5.04596433353339e-64, 3.57754525554097e+70, 6.84364257379756e+284, 1.24906514895291e+119, 2.54899629680657e+32, 6.71782342615012e-239, 2.38297409422025e-86, 1.07715973366887e-48, 9.52924022396361e+230, 1.81181982435879e-242, 3.88570469905914e-93, 5.60925803200539e+169, 4.01439665542111e+131, 6.05820175743792e+193, 3.37911876479939e-23, 19331579673669.3, 139245155.846757, 6.27115512759388e-131, 9.81267101129513e-307, 1.09539503313204e-111, 6.90808565293148e+39, 4.83140320636534e-246, 1871120294349870, 2.6761247094535e-64, 7.40878776597954e-304, 6.48594188620584e-298, 2.00058605228049e+63, 2.1178242202331e-185, 1669723402315783, 4.60198121368137e+66, 8.73170936930278e+193, 2.76272165798749e-144, 3.05189987489461e-96, 1.36664010301426e+271, 3.62808950055024e-91, 1.72904690911807e+127, 2.63711866076538e-235, 1.07532398735689e-26, 3.14748933260446e-220, 2.19222307002842e+175, 5.07923469891019e+69, 3.70048429193472e+192, 1.48113052721217e-275, 3.2292944121448e+254, 2.49614511098516e+111, 7.09364420373466e-71, 1.64196758247147e-279, 1.63240840308564e+290, 3.1589285672908e+227, 1.04334870432765e-276, 8.62666672530164e-303, 697035664848.331, 3.53314600356394e+234, 3.07677574617131e-120, 3.41144737044393e+192, 8.58918031432516e+260, 3.23317584305757e+112, 1.12954918078623e+139, 5.19157815113383e-52, 2.53359398415656e-228, 7.74640151208326e-202, 4.15673406701647e-258, 3.43157623030953e+249, 1.62095739138995e-11, 5.06280164809567e+126, 6.20530919621117e+239, 3.32751247889724e-66, 3.50776634845898e+81, 4152694.73441314), .Dim = c(7L, 10L)), X2 = structure(c(809457555.623752, 4.06428970252022e+94, 4.32979610375717e-74, 95383402.846708, 1.49948481118658e+174, 1.9894443579682e+290, 1.39969182210493e-137, 1.04717967913689e-200, 2.85795094396014e+42, 5.17594433474114e+97, 3.20045472630588e+84, 1.42792128833572e-207, 7.95468241964103e-193, 1.56932610936149e-240, 2.52206836275063e-139, 1.95370115135934e+120, 3.64531139382657e+297, 2.79032971598826e+116, 4.25923485112206e-307, 8.41653330748223e+66, 1.82848758577164e+207, 1.36968243578252e-217, 3.13438899141379e+301, 8.54974813492045e-260, 8.85835770328378e+185, 1.96776992547185e+219, 9.96604738467036e+306, 1.04140586345325e+65, 1.88557986768075e-47, 8.75952995836371e-68, 3.16103942167424e-126, 4.60119712566997e-275, 1.81421162139779e-206, 1.11938914841509e-284, 3.35767690677644e-32, 1.08176598653619e+293, 5.12371123731208e+68, 8.72334112297398e-222, 3.59108700364976e+77, 2.29911424639989e-34, 5.17303963850381e-304, 3.00120476694475e-127, 5.84164383165629e-143, 1.97867554475655e-291, 1.43850722708295e-90, 8.77603642471924e+248, 6.91075761513193e-300, 1.79262075267392e+257, 685514579704945280, 4.31640075027891e+32, 1.21707879238313e-108, 9.10739542008164e+55, 5.75843217272477e-297, 3.57963994463886e-105, 7.44589041516672e-159, 3.65787626852002e+180, 5.44262251421833e+149, 6.58275774423003e-234, 5.95600266095045e+36, 3.06244158283345e-227, 8.06445511180178e+175, 5.86555059206785e-103, 6.11713323787576e-237), .Dim = c(7L, 9L))) result <- do.call(hetGP:::partial_d_dist_abs_dX1_i1_i2_X2,testlist) str(result)