testlist <- list(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:::get_tree_info_test_data,testlist) str(result)