testlist <- list(ances = c(1437056432L, 693008050L, 1467617219L, 1541660679L,  -488962834L, 1935238656L, -1695753803L, -1414501120L, 1479258497L,  2032612304L, -1589472003L, NA, 1325987266L, 1650246396L, 1218228979L,  1277162660L, 1252337092L, -866610067L, -1708627265L, 465491896L,  2008854489L, 410113377L, 226972762L, -1488388367L, -316361287L,  2085234455L, 1922160143L))
result <- do.call(phylobase:::tabulateTips,testlist)
str(result)