testlist <- list(d = -469638059L, ld_obs = c(5.80625313550006e+291, 4.27334378458999e-73,  -5.95672532616941e-171, 3.32150515169306e+240, -2.90549895903465e-35,  -0.000105759124338268, 6.33952435623554e-13, -4.73661064594262e-79,  1.55550156148045e+251, 3.64960216823639e+53, 1.74329450257232e-265,  4.89754019373027e-102, -1.94671047587981e-281, 5.41616674756926e-191,  5.32254231696462e+196, 3.11790163592035e+175, 7.94599292694681e-268,  -1.9793859953325e+139, 4.31753527824849e+190, 1.47017245182097e-285,  -7.60595972287432e+146, 8.20480687507998e+66, 2.82807067679008e-29,  1.36040548070881e+283, -2.21818240231492e+194, -2.35171103927106e-263,  -1.76400336287941e+49, 1.03715242270817e-304, -1.58081336180981e+207,  -9.86896971412535e-133, -2.0772780998857e-242, 1.02764370645283e+129,  5.15095206800558e+218, -2.18835154685468e+305, 2.7187956209142e-140,  -1.07579847745447e+293, -2.23094234489041e-87, -1.48047624825645e+197,  -6.25786796183681e-283, 5.30786433265637e+234, -9.44439001751561e+226,  -1.34623586838988e-65, 2.13494113147542e-132, 8.14824922749987e-171,  -3.86510794206545e-42, 4.78799352607089e+119, 1.15940737132038e+148,  -9.45546289107428e-242, -4.17532963125364e+192, 3.75475200013239e+229,  -1.54470537685379e-213, 7.45766013310034e-31, 5.23357685814757e+103,  -6.5142544435682e-102, -4.52405855396084e-88, 1.26897696078858e-256,  7.73593240223144e-100, 1.37142273453642e+84, 1.27853548402832e+124,  6.84114769671652e-179, 1.87916443236561e-136, 1.84907573969435e+298,  2.44623541659398e-13, -1.24173513072221e+269, -1.27014271884788e+108,  0.00036993779429385, -5.37021249506796e-113, 2.40792997496163e+278,  1.06973649999904e+79, -3.05882278674523e-173, -3.03976704785355e-137 ), left_daughter = -6.48647820069293e+80, prior_tree_matrix_temp = structure(c(1.26687976592906e-195,  3.2233279801324e-202, 6.38130266420786e+39, 4.6876777699749e+150,  2.60955888643432e-180, 4.33644624772099e-262, 3566.03204378763,  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,  Inf, 4.96191788609262e+63, 2.51792253117222e+33, 7.71931696183238e-131,  7.37346308220732e+249, 8.99895655195431e+247, 1.32676354441228e-173,  -Inf, 1.61680461753788e+130, 1.96798692490174e-284, 4.75987094357951e+51,  3.47672818839454e-141, NA, 1.85184604584197e-125, 4.01731240107076e+127,  3.72410842265817e-303, 5.07208698497636e+95, 4.3415773914917e-237,  6.74134573847103e-277, 6.42440445334388e-84, 30875665854.0635,  4.73747761328795e-169, 4.09043542547637e-156, 1.82230148682624e-68,  3.52891274307287e-232, NaN, 3.47783140665292e+91, 9.89143373102273e+138,  5.28069898443773e+213, 6.29396952987517e+127, 3.01639054230534e+29,  1.27605984319893e+230, 5.75128063446593e-144, 3.4428130616263e+104 ), .Dim = c(5L, 10L)), rd_obs = c(-4.18255047406038e-172, 7.4223830669644e+128,  -1.464131335137e-128, -2.70828488037425e+222, -2.87257677602694e+200,  1.75420160012347e+66, 2.07010175306854e+56, -8.90797057818021e-217,  2.89599223957859e-144, -8.08049272319537e-291, 3.62268229326651e-230,  -6.6610234010078e+304, -2.60236609234076e+303, -6.51236020655334e+292,  -9.26001791620575e-13, -5.42630491170172e+253, -4.77886612321709e-120,  -8.5570773724579e+248, 1.9648761772345e-275, 6.88171108481133e-28,  -2.95711898938958e+67, 1.50886610488211e-35, 1.48823899996944e-50,  -2.67575967247827e-204, -3.41798067250352e-56, -8.94321933562466e-221,  8.61853527215367e+246, 4.19282973567147e+284, 2.2199770163107e+120,  -1.91692032899043e-20, -2.458486246228e-132, -1.23930778460885e-107,  -7.08699782684969e-58, 3.76476331084589e+103, -0.000110999941509568,  1.65788997767647e+69, 1.29320205647064e-122, 4.47297350262861e-68,  2.2272537580285e-148, -8.71894116465414e-176, 0.00246129416725052,  -5.15908095527403e+300))
result <- do.call(bartBMA:::set_daughter_to_end_mat,testlist)
str(result)