<br>When reading a nexml-formatted tree with reticulated nodes (i.e. a network), I'm getting an error while constructing the phylo4 tree that the number of tips doesn't match the number of tip labels. This is stemming from check_phylo4, which checks that nTips(object) is equal to length(tip.label) -- but I can't find the code for nTips (here is a snippet of my debugging session within check_phylo4; there are only 5 tips, but nTips reports 6):<br>
<br>Browse[1]> nTips(object)<br>[1] 6<br>Browse[1]> object@tip.label<br>[1] "Homo sapiens" "t3" "t2" "t5" "t4" <br>Browse[1]> getMethod("nTips", where=object)<br>
Method Definition:<br><br>function (x, ...) <br>{<br> .local <- function (x) <br> {<br> if (class(x) == "phylo") {<br> Ntip(x)<br> }<br> else stop(paste("no 'nTips' method available for", deparse(substitute(x)), <br>
"(class", class(x), ")"))<br> }<br> .local(x, ...)<br>}<br><environment: 0x861e04c><br><br>Signatures:<br> x <br>target "ANY"<br>defined "ANY"<br>
<br>