testlist <- list(terminal_node = 9.61250544591449e-224, tree_matrix_temp = 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))) result <- do.call(bartBMA:::find_term_obs,testlist) str(result)