testlist <- list(test_data = structure(c(954.619049032124, 4.03122089376281e-103, 8.58559690036031e-07, 1.09616541634978e-135, 1.49507500680207e+282, NA, 4.8584789701694e-155, 9.73251743751728e-257, 9.77106323362451e-95, 1.59935891271364e-219, 3.6267406926106e+276, 9.3083053297104e-138, 4.09716176195855e+47, 2.35355460498623e-176, 4.02270221514791e+176, 2.85288942665701e-14, 5.17781426491588e+105, 2.59099225458739e-68, 8.40608210163827e+118, 5.1139437074965e+143, 515176725.964064, 1.90988317189629e-229, 1.88112066722191e-140, 1.18385829419564e-216, 1.61222685376196e+229, 5.62204401130072e+284, 4.1985610420276e+214, Inf, 6.23760665871804e+256, 2.38723925812655e-271, 4.2365389081807e+262, 7.49285914241919e+260, 2.6586580430876e-149, 7.35556436499467e-289, 1.1164284165744e+200, 9.84997881102224e+122, 1.0806812155756e-237, 1.27446005289295e-225, 1.49057439250001e-39, 5.08475494093516e-225, 1.38424850658524e+117, 5.95892990386809e+31, 4.01406542506697e-209, 5.89189626014102e+51, 9.20243546597089e-140, 1.65509200495089e-37, 9.11589445703615e+29, 0.294649941123457, 7.66404604667205e-113, 2.11836915642473e+68, 1.99643491873697e-141, 1.75410010367575e-70, 1.78770353637774e+280, 1.9371099295731e-173, 663214776778451840, 5.74928421179841e-103, 1.43849600534002e-250, 4.8686405370412e-227, 4.07598509792183e+266, 5.26815200203459e+89, 2.10944085848799e-227, NaN, 5.02837169166103e-217, 4.86840351687347e+44, 5.32133725338138e-188, 8.33173932026252e+144, 5.03035051735265e-163, 3.5539319758706e-308, 2.73703710007578e+86, 261568716.067493, 1.82876403322816e-181, 5.3517636555711e-198, 2.7972089430423e-52, 9.07186166526296e+288, 4.45117581488689e+136, 1.19461280227173e-290, 4.20965945962986e-153, 158008814.622929, 2.4934853341934e-228, 1.03277606403201e-156, 7.08933039049028e-274, NA, 1.08724796700311e-182, -8.51189803621161e-07, 1.88132294565959e-193, 448817.973423928, 3.22386213553242e-233, 3.12331436710257e+53, 4.84993687143472e+58, 4.90352252085468e+260 ), .Dim = 9:10), tree_data = structure(c(15676496278738058, 2.61966469766922e-70, 1.01812976615197e-110, 9.39739761726357e+63, 1.57550906636751e-93, 1.4763822876547e-269, 1.69038769170113e-206, 5.33648792040299e+181, 1.67648962166715e-61, 3.05396967240215e-208, 4.61844369919636e-104, 4.43065570233114e+80, 6.10360772620188e+246, -2.78711056496352e+221, 282075050.213272, 2.35968325524176e-171, -Inf, 2.96358160277403e-149, 1.22438920849312e+126, 2.29136775506042e-125, 1.87818754862822e-274, 1.44826015643914e-15, 1.98559294505322e-246, 6.41157066013598e-149, 4.10248352978585e-08, 1.31548478373988e-228, 9.71566276002636e-145, 1.11641497935403e-253, 1.10417720514246e+161, 5.92306799847393e-200, 3.34191648015769e+67, 2.83642306944687e+220, 7.4800037571043e-139, 5.76280283416132e-06, 1.12086660349181e+111, 5.30981753408604e-255, 5.3211173127297e-301, 6.73254923465982e+140, 8.90005445674443e+201, 3571853778896296960, 4.96054161448532e-35, 6.74068931974558e+63, NA, 2.72910153138211e+54, 3.16976105099136e-225, 2.60219817080102e-152, 3.0225445679211e-72, 2.0892855071181e-175, 1.08066524981532e+195, 5.82818480124938e+68, -Inf, 1.48472736418043e+90, 1.89020226952531e+68, 4.6977139924737e+19, 4.50273704868497e-159, 4.47894710482014e-60, 7.19491606390852e-94, NA, 1.77892385606996e-129, 2.88942561909714e+147, 1.25965599950315e+86, 7.80454558701334e-213, 3.37689421828677e-225 ), .Dim = c(7L, 9L))) result <- do.call(bartBMA:::get_termobs_test_data,testlist) str(result)