testlist <- list(d = 2128197776L, ld_obs = c(-1.646287653183e+219, 2.77718146285877e+36,  9.30500924864227e-126, -8.40171409844756e-48, -8.72773219496197e-222,  4.27064912662926e+243, 7.56179477482992e+267, 1.4852464645177e-139,  4.58275012087099e+262, 2.74117807829207e+272, -8.2398052672162e-124,  -1.61625624077693e-196, 1.87397454569812e-146, 3.2384449186444e-244,  3.46444855761134e-66, -5.37690095715205e-158, -1.28660504059347e-139,  2.0127103439709e+306, -4.31469376153359e-53, 2.77107018684392e-96,  4.37746848029226e+95, 1.09678151544239e+241, -4.26535585626031e-172,  -4.91159339879264e+144, -3.38502859367595e+134, -5.78033365502816e+47,  3.14543417671943e+71, 1.45707072314645e-150, -1.49647307269512e+55,  -1.86355298533896e-294, -8.03700930127113e-63, 6.7374635655351e+204,  -6.8764198779315e+114, 4.88125202915188e-36, 6.06514241082836e-274,  -1.67445762385277e-78, 2.99383542751916e-157, -1.65243256754972e-16,  -0.350684120543919, -1.86896646202683e+257, -3.56100684882739e+153,  -4.84993277139449e+224, -3.7700087602161e-227, -8.3402668372068e-233,  -1.24281289757618e-05, -28840.7333121822, -4.37727353720647e+254,  3.13654211800681e-85, -3.76231422108544e+52, -6.31741617770852e-211,  -8.66993844078321e+261, 1.1117441654849e+142, 5.10689771366304e-129,  -1.46036036480052e+48, 1.71257617800484e-283, -9.08327952567724e+305,  -1.30600670447582e+305, 1.08926338651709e-148, 2.71680934568034e+132,  -5.8032823387494e-11, -2.85872975931615e+241, -7.74791560420897e-19,  -9.59397749615236e+77, 4.83971411050934e+69, -5.45477334000085e-271,  -2.48862746970432e-42, 3.28210348026581e+35, 4.67312596346647e-145,  -9.18314541720968e-128, 2.07710254085057e-65), left_daughter = 9.61250544591449e-224,      prior_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)), rd_obs = c(2.24342656898717e+49,      -4.13174446269019e+86, -6.83525687300405e-232, -3.42166300853448e-276,      1.24500067690926e+209, -8.58092169705662e-211, 2.18255179229511e-73,      -3.5933569953196e+93, 3.71869252186039e+26, 4.78749787213883e+73,      -1.50202045722572e-46, 3.23818628153062, -1.01182702701194e+40,      1.05564639719395e+45, 1.31617302300027e+270, -9.09121323093162e+39,      -2.56666228947278e-219, 7.83884524627882e+64, 2.75629333302146e-282,      6.19492247366528e+305, 3.02491122119313e-89, -8.53245671000056e-180,      4.19551111630466e-128, 6.77201455025768e+248, 8.81399559876302e+263,      9.87774698963253e+113, -1.58908543303091e-293, -2.15359056949761e-270,      3.15577731842399e+256, -1.9422797429364e+67, -3.70403439391298e+53,      -2.91929444046638e+224, 3.83942265462398e+26, 5.197527512681e-46,      1.07693736990511e-143, 7.67748857412533e+179, -1.14105505284995e-19,      3.44236733246414e-280, -4.22183403169527e+244, -7.67177895174744e+122,      8.44113271129679e+197, -8.75075048245081e+62, 5.87404077213094e+289,      2.32614401830479e+257, -3.10917945518933e+245, -2.0954127409508e-60,      1.32631858458737e-293, 2.11917628152253e+254, -3.18488035302394e-302,      -5.5626804881541e-147, -2.09938246207904e-83, 1.11533403994306e-235,      -4.99386603221345e+33, -2.37167260311505e-97, -1.64515527531221e-199,      2.30763885179925e+307, 6.17724437717778e-298, -6.57437016908534e-60,      -6.06431923442781e-13, -8.46985068460083e-151, -2.91063126980463e-220,      1.10297883418892e-289, -4.16562439390053e+208, 1.24706543323766e-16,      5.97475980117777e-93, -1.13115730341881e+45, 1.31104569455299e-39,      -7.20178705941467e-76, 2.21233144745296e+148, 3.16895127153672e+300,      3.50072303933361e+200, 2.25248912384439e-72, -4.47356123827187e-121     ))
result <- do.call(bartBMA:::find_obs_to_update_grow,testlist)
str(result)