R/getLayerForest.R

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