testlist <- list(grow_node = 1654237388L, ld_obs = c(80824280319427.8, -7.15363843764732e-306,  -4.79284955995866e+101, 2.28157067720536e-100, 1.51415165998526e-124,  2.91968468407041e+200, -3.24789929302122e+39, -1.27167998990012e-242,  5.51174587642845e-92, -1.6684458815266e-79, 2.6178282211869e-270,  3.98183616356748e-48, -1620778835715890, 2.66341274222442e+164,  -9.48246738206064e-247, 4.51839624400382e+290, 5.80939096380608e+81,  2.51454280536704e+247, 5.45113384939425e+89, -5.09243048446923e-151,  3.47493860786923e+239, -3.02743309827443e+271, 5.01831781666588e-09,  14410186047052.6, -9.88443139882848e-148, -4.73840974262017e+220,  1.42774005672519e+305, 3.6189139903988e+92, -2.07715974550536e-80,  -7.3794262058441e+302, 2.55506364328384e+42, 3.65619768814602e-162,  -8.92401896958916e+167, 1.12479833871983e+240, 0.000193957807681168,  -4.75606177726044e-23, -2.50111686205482e-218, 1.79288719945981e+115 ), prior_tree_matrix_temp = structure(c(9.72613297902591e-288,  2.18914966186083e-247, 8.80179107945163e-174, 1.96465812066102e-246,  6.20976644056122e+120, 7.18189862077759e-28, 2.4940801213836e+292,  1.57546125271901e-262, 5.2210287513704e+290, 1.31150224361457e+91 ), .Dim = c(1L, 10L)), rd_obs = c(-6.9886525764733e-259, -1.52495910038766e-12,  -1.13833227747963e+63, 1.00919875598354e+121, 7.39254326798443e+59,  -1.03187106734414e-271, 1.06002620986478e+205, 3.0038626785172e-115,  -4.43513609300006e+101, -2.68107998180835e+305, -2.47342466606039e+202,  -3.6268543821459e-63, -7.08080116186419e+258, -4.8018614966539e+59,  7.46856540787213e-201, 8.80122542949415e-175, -2.18841891532668e-125,  7.18543962355475e+56, 1.71035027296727e-21, 1.11318605406686e-80,  -1.80205887294625e+278, 3.06160627905932e+74, -3.79473351347487e-225,  3.08872679341186e-142, 6.45917349374786e+78, -2.00971080070718e-174,  3.65033752288784e-78, 1.31216204215141e-69, 3.13433245718369e+50,  -1.34501274834357e-166, -2.70415102043678e+288, 1.15235933034622e+214,  -3.11142811768285e-39))
result <- do.call(bartBMA:::addcol,testlist)
str(result)