at.node: Bind a tip to a node
In jinyizju/V.PhyloMaker: Make phylogenetic hypotheses for vascular plants, etc.

Description Usage Arguments Value Author(s) Examples

This function binds a tip to a node and creates a polytomy

1	at.node(phylogeny, location.node, tip.label)

`phylogeny`	The phylogeny.
`location.node`	The number or label of the node to bind.
`tip.label`	The label of the tip.

Returns the phylogeny with the tip binded to the node.

Yi Jin

library(ape)
phylo0 <- rcoal(10)  # generate a phylogeny with 10 tips
phylo <- at.node(phylogeny = phylo0, location.node = sample(phylo0$edge[, 1], 1), tip.label = "New Tip")  # bind a "New Tip" to the phylogeny at a random node.
par(mfrow = c(1, 2))
plot(phylo0)        # plot the phylogeny.
plot(phylo)          # plot the phylogeny with the "New Tip" binded.