testlist <- list(a_s_t = -3.34258730899013e+109, alpha = 1.81364327310204e-23,      b_s_t = -7.81440421720792e+150, beta = 4.38532257110337e+144,      lambda_poisson = 4.34009950958492e-132, num_obs = -35616315521417.4,      num_vars = 3.57600405652831e+58, p_s_t = 2.64498038948045e-164,      s_t_hyperprior = 914642645L, spike_tree = -3.59872877491565e+296,      tree_matrix = structure(c(6.12848104115719e-66, 5.40950580922275e-101,      2.39113262552143e+187, 3.79800215251391e-143, 3.16501277765672e+181,      3.01597036198898e-09, 7.15170931053321e-169, 1.90056544094512e+38,      2.77618869817283e+247, 1.31503326811734e+153), .Dim = c(5L,      2L)), tree_table = structure(c(9387961264.46351, 2.47700285664323e-140,      9.64525467725874e+30, 1.50135414353747e+120, 3.67602706454175e+300,      2.81283704650831e+42, 3.20800552973223e-71, 8.85759874767862e-277,      4.94270957995928e+204, 7.53798404642321e-121, 4.96191788609262e+63,      2.51792253117222e+33, 7.71931696183238e-131, 7.37346308220732e+249,      8.99895655195431e+247, 1.32676354441228e-173, 9.60704700550433e+159,      1.61680461753788e+130, 1.96798692490174e-284, 4.75987094357951e+51,      3.47672818839454e-141, 1.54679135852469e+120, -4.55740860110237e-103,      -Inf, 3.72410842265817e-303, 5.07208698497636e+95, Inf, 6.74134573847103e-277,      6.42440445334388e-84, 30875665854.0635, 4.73747761328795e-169,      4.09043542547637e-156, 1.82230148682624e-68, 3.52891274307287e-232,      4.00054722785245e-33, -Inf, -Inf, 5.28069898443773e+213,      6.29396952987517e+127, 3.01639054230534e+29), .Dim = c(5L,      8L)))
result <- do.call(bartBMA:::get_tree_prior,testlist)
str(result)