testlist <- list(grow_node = -1309025488L, left_daughter = 3.82504709473899e+232, node_to_update = c(1.86510843342709e-245, -1.6578235520724e-126, 8.31920255513824e+76, 1.21214794644861e-73, -1.82852408321013e+183, 4.29485968908016e-206, 4.54964027613698e+119, -1.51652249314335e+167, -3.75004888626212e-129, 3.69390615123829e+234, 5.50122451930252e+234, -5.85649931437095e+106, 2.33603150842745e+187, -2.61014782890184e-89, 5.39802665415686e+140, 4.34952641997584e-92, 4.43042828616646e-127 ), prior_tree_table_temp = structure(c(1.51886024823543e-282, 9.00123031400698e+84, 3.0243884984874e+234, 1.08707866440307e+120, 2.96591522379483e-146, 1.95816798750811e-131, 1.1753306209927e-122, 1.0936207305258e-194, 6.71962574015995e-160, 1.66249724751902e-250, 7.25181010220425e-123, 1.92199862573809e-190, 4.96534090618195e+107, 1.35722207577192e-292, 3.18497333306282e+232, 3.64103714844602e-233, 2.88131094116101e+218, 76065827.688744, 1.29768612945593e+247, 2.8816084901775e+131, 1.27133442567742e+256, 7.793266673896e-189, 2.58069493284837e+92, 1.83131586623993e+43, 2.30802117553111e-243, 3.00755495315194e+162, 9.88725471179051e+56, 6.83873559857537e-277, 4.07538849532164e+27, 1.15617076673217e+141, 5.3595347089513e+194, 1.83289283459492e-105, 3.22121394014806e-307, 5.10252627988266e-139, 1.55281134536723e-61, 2.06418845533417e+82, 8.83202732272626e-282, 4.79072923958292e+75, 6.2030748819062e-218, 27.5113146236504 ), .Dim = c(8L, 5L))) result <- do.call(bartBMA:::set_tree_to_middle,testlist) str(result)