- ans <- attr(.Call("prop_part", c(list(phy), boot.tree),
- B + 1, FALSE, PACKAGE = "ape"), "number") - 1
+ ans <- prop.clades(phy, boot.tree)
+ ##ans <- attr(.Call("prop_part", c(list(phy), boot.tree),
+ ## B + 1, FALSE, PACKAGE = "ape"), "number") - 1