R/plotNodeNumbers.phylo.R

`plotNodeNumbers.phylo` <-
function(phy)
{
	phy$node.label <- (length(phy$tip.label)+1):max(phy$edge);
	plot.phylo(phy, show.node.label=TRUE);	
}

Try the laser package in your browser

Any scripts or data that you put into this service are public.

laser documentation built on Jan. 15, 2017, 4:49 p.m.