在R中找到我的无根树的最小内部节点数

Question

我使用ape中的R包来制作系统发育。

tree1 <-read.nexus("my_unrooted_tree.nex", tree.names = NULL)

我想找到无根树的最小内部节点数。

使用tree1$edge我可以使用祖先分支的数量，但有没有办法自动执行此操作？