Identify, for each edge, whether it denotes a different partition from the root edge. The first edge of the input tree must be a root edge; this can be accomplished using Preorder().

NonDuplicateRoot(parent, child, nEdge = length(parent))

Arguments

parent

Integer vector corresponding to the first column of the edge matrix of a tree of class phylo, i.e. tree[["edge"]][, 1]

child

Integer vector corresponding to the second column of the edge matrix of a tree of class phylo, i.e. tree[["edge"]][, 2].

nEdge

(optional) integer specifying the number of edges of a tree of class phylo, i.e. dim(tree[["edge"]])[1]

Value

NonDuplicateRoot() returns a logical vector of length nEdge, specifying TRUE unless an edge identifies the same partition as the root edge.

Details

This function is deprecated; if you use it, please comment (#32) so that a suitable replacement can be guaranteed.

Author

Martin R. Smith (martin.smith@durham.ac.uk)

Examples

tree <- Preorder(BalancedTree(8))
edge <- tree$edge
parent <- edge[, 1]
child <- edge[, 2]

which(!NonDuplicateRoot(parent, child))
#> [1] 1