R/nameNodes.R

Defines functions nameNodes

Documented in nameNodes

nameNodes <-
function(tree){
	if(!is.null(tree$node.label)){
		if(length(unique(tree$node.label))==length(tree$node.label)){
			return(tree)
			}}
	tree$node.label<-paste("zzz",1:tree$Nnode,sep="")
	tree
	}

Try the surface package in your browser

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

surface documentation built on Dec. 18, 2020, 5:08 p.m.