R/getLayerTree.R

getLayerTree <- function( ancestryTreeObj = list() ) {
	
	c(1, sapply(ancestryTreeObj[-1], length) + 1)
	
}
adibender/rFtools documentation built on May 14, 2019, 5:13 a.m.