testlist <- list(alpha = 2.21121083280666e-158, leaves = c(NA, 1.66530962152048e+56,  3.43458932274554e+115, 1.41703071503453e+236, 2.72474700158652e-165,  3.01626351012221e-197, 3.79138561258568e-145, 1.53125101775792e+280,  NA, 2047600.15668342, 7.97106032148139e+54, -2.05916239711893e-101,  NaN, 2.34806877064617e-238, 1.35479015002109e+59, 1.48914712844348e+53,  -1.94566429622721e+187, 2.71472337409182e-47, 1.38210275542411e-251,  -7.86737211559903e+91, -6.0039449808093e+27, 4.06114405995548e-226,  1.00851302877549e-188, 7.40335542215459e+137, -6.88718408368167e+276,  2.47863059107282e+162, -1.31139888861447e+188, Inf, NaN, 8.52149551303755e-206,  1.0053954999414e-167, 2.91112256635078e+199, 2.41041702067139e-23,  -7.13913974504022e+215, 5.54367195500486e+279, 1.4556808051627e-58,  2.01142866656461e-18, 2.34089274702474e-64, -9.69969034543317e+291,  -6.28846498638529e+114, 1.32577301587921e-148, 8.45846239094769e-93,  4.72692755704772e-91, 0), nodes = c(-3.87314275766346e-18, 5.4908397790896e-202,  1.66521460180455e-264, 1.16825953333329e-263, 1.71846227475019e-187,  -7.41598518232728e-308, 1.88952064024704e-240, -8.29196490609032e+142,  8.57128894171593e+67, 1.44149370322519e+299, -2.90959784235875e-123,  -2.48327822345293e-264, -1.44368270621534e-142, -9.11596096002902e+300,  1.37423913263328e-201, 3.27094372657941e+77, 3.51003075746557e-267,  6.13980576549056e+73, -1.44023857515731e+175, 6.26171841915048e+164,  9.15506354641061e+251, -Inf, -4.40588121661247e-144, -4.43152383682748e-256,  -2.84700678297912e+300, -5.71259535754667e-93, -3.52932857214417e-46,  -1.57448266952693e+107, -Inf, 1.80053735096351e-242, Inf, -2.18638386078968e+28,  -1.52145264828875e-189, 2.53020582582974e-126, -2.16458525576504e-194,  1.23539059768571e+263, NaN))
result <- do.call(TransPhylo:::coalescent,testlist)
str(result)