testlist <- list(ncens = c(-4.17513106294312e+152, 1.118990883273e-172, -9.77728031623585e-46,  -13682243007597.8, 1.32710692941981e+144, 7.24606733019556e-151,  -5.46292745731696e+70, 1.20179072398827e+133, -3.09974072616603e+234,  1.94614315975573e+241, 6.33176598747286e+30, -1.45104244187179e-90,  1.77298773815853e-274, 1.44640983901977e+71, -2.02038950321347e-250,  -1.33388346382687e-159, 6.16252968260949e+121, 1.00382783976303e-111,  -1.35733054621854e-183, -3.75110609693712e-233, -2.05490929110069e+142,  -9.61309865634516e+30, -2.94547150653841e-123, -5.38716732772305e+165,  4.05181509704945e-111, -1.13734138165129e+105, -1.20069142138715e-81,  1.39433518235706e-223, -2.50742616512085e-14), nuncens = c(2.27675033175421e+111,  NaN, 2.48210743436492e+233, -1.01381226336827e+107, NaN, Inf,  -1.91928902984669e-274, -4.62779610998882e+157, -1.42588748531998e-275,  NaN, 77488258.8436796, 7.53424874040891e+297, -4.54322114146021e-202,  0), pi = c(5.8318179726041e-110, 1.5125113582221e-112, -3.88022908316152e+43,  -1.80524778615327e-305, 1.11567412009979e+272, -2.49990434608751e-64,  9.54785346701688e-143, -4.21542563717061e-147, 1.30942143479345e-247,  1.15075520211379e+213, -1.91459116486594e+205, 3.55789281171128e-171,  3.27489930618197e+271, -5.33049287982723e-23, 7.3490408824089e+285,  -1.09748184350973e+200, 3.40479592536924e-248, -2.91540026212177e-268,  -1.09057520261246e+68, -16975176901.0573, 1.24524073296013e-201,  4.7117487897957e-241, -1.34245510589863e-266, -5.2185861320286e+189,  9.85448265710452e+263, 2.10678172695532e+67, 1.23660703856927e+215,  -2.78928193505367e+266, 1.3886935816344e-219, 6.5037323385151e+196,  -1.47079822419392e+92, -1.65798348346444e+93, 3.08157580117106e-128,  -8.63616048455352e-161, -1.0017052068817e-273, -6.29789812791001e-147,  -2.80191310174573e-152, -1.25578861744671e+283, -3.2523152018541e-41,  -1.25149304907979e-257, -1.60288302394479e+255, 2.43770550660411e-10,  4.29709561708635e-170, -4.70765468541094e+39, -7.66002455269296e+54,  -1.17469586506094e+128), S = c(1.45054675109534e-179, -2.02828737476961e+154,  -4.38652897494117e-234, -3.27936893736694e+159, 1.06651706236774e+40,  NaN, 4.44583145613837e+148, 9.03657820754002e-68, 3.52473609098182e+105,  NaN, -7.2560340251374e-65, -7.18512251989396e-276, 9.12291509995669e-200,  -3.98665141155432e+124, 7.46424085205446e+66, -3.53187707175498e+158,  -9.30230006027986e+152, 2.85070545907202e+287, 6.84384997188682e-44,  5.15320558786806e+281, -19085478981.3939, -6.20472717002359e-65,  -6.88969238957456e-80, -0.000935605181865896, 6.18145506809544e-259,  -4.99282633645421e+106, Inf, 1.50684520699843e+192, -Inf, Inf,  0))
result <- do.call(DStree:::lik,testlist)
str(result)