testlist <- list(term_node_means = c(1.24500067690926e+209, -8.58092169705662e-211,  2.18255179229511e-73, -3.5933569953196e+93, 3.71869252186039e+26,  4.78749787213883e+73, -1.50202045722572e-46, 3.23818628153062,  -1.01182702701194e+40, 1.05564639719395e+45, 1.31617302300027e+270,  -9.09121323093162e+39, -2.56666228947278e-219, 7.83884524627882e+64,  2.75629333302146e-282, 6.19492247366528e+305, 3.02491122119313e-89,  -8.53245671000056e-180, 4.19551111630466e-128, 6.77201455025768e+248,  8.81399559876302e+263, 9.87774698963253e+113, -1.58908543303091e-293,  -2.15359056949761e-270, 3.15577731842399e+256, -1.9422797429364e+67,  -3.70403439391298e+53, -2.91929444046638e+224, 3.83942265462398e+26,  5.197527512681e-46, 1.07693736990511e-143, 7.67748857412533e+179,  -1.14105505284995e-19, 3.44236733246414e-280, -4.22183403169527e+244,  -7.67177895174744e+122, 8.44113271129679e+197, -8.75075048245081e+62,  5.87404077213094e+289), test_data = structure(c(6.77801672019784e-61,  4.02883278934958e+82, 1.37085196308948e+166, 6.49238595839675e+224,  1.47759173860095e+143, 1.05926212750091e+69, 2.42001803049194e+54,  2.26741280992956e+104, 6.27440348502726e-62, 2.66026672532904e-251,  1.18795600833053e-216, 2.24371383759114e+115, 1.55722861612274e+234,  2.40647487261906e-78, 2.96154001181349e-179, 2.06460341013277e-90,  2.85352793714464e-137, 1.24663681163331e-33, 5.07852698549192e+212,  4.27062448099837e+251, 3.33956571050786e-305, 8.82759776575692e+208,  6.32727097150918e+43, 1.62942948893942e+287, 3.25349594504143e-58,  5.23732408792197e-77, 1.40524532376617e+109, 0.0027415258446282,  7.47790358181259e-305, 0.000847738670001724, 1.92871530416176e-182,  2.29110570662922e-102), .Dim = c(4L, 8L)), tree_data = structure(c(5.77918323109333e-35,  1.37644793008299e-67, 3.33331769683192e+241, 7.12862072978564e+55,  9.92926911413681e-284, 2.03702877182204e+306, 3.40265755628077e+77,  5.15740214934406e+285, 2.10766905266252e+299, 7.49430789858073e-29,  1.2186994256073e+82, 2.05362719385556e+269, -Inf, 3.17240039669972e-224,  -Inf, 6.1976501982119e+268, 8.65195900781001e-147, 6.00243193803219e-122,  1.65860884722971e-165, 9.39136500397431e-85, 1.87095069464966e-209,  9.26437730052889e+235, 3.1440928526862e+292, 1.91804217328914e-73,  6.14732873895428e-33, 1.00613383318044e-187, 4.2852739920013e-132,  4.22917347035129e+275, 1.2848157584517e+261, 2.18133512664659e-73,  5.57047051121345e-74, 2.25259961397586e-56, 2.91995858328489e+68,  1.18630546999963e+102, 1.00660089009264e-231, 4.21179722687965e+107,  4.13647117141667e-131, 6.39761532908836e-240, 5.71140617207799e+204,  9.22379972533669e-200, 4.88402626902036e+68, 2.38345740568314e+154,  2.96436221675297e+236, 9.61250544591449e-224, NaN, 8.90413145609155e+205,  8.22382407453839e-197, 1.72992149018146e-287, 6.1281077234895e-174,  4.26958130747046e-66, 2.81444738203132e+132, 3.27043048397472e-81,  1.65072941271294e+125, 8.81899774884879e-76, 2.50959622589838e-05,  4.67982006802581e-69, 9.48751641254745e+269, 2.30017368043653e+120,  1.50110147254534e-96, 1.40884504152354e-263, 1.84480363717967e+146,  2.75493151231466e-98, 8.52989269206721e-172, 3.70201735494154e-239,  Inf, 1.58676955861161e-06, 3.27011025408234e-136, 2.91633092344032e+79,  1.39520096672533e-82, 1.15916608084789e+172), .Dim = c(7L, 10L )))
result <- do.call(bartBMA:::bartBMA_get_testdata_term_obs_pred,testlist)
str(result)