R/get_index.R

Defines functions get.index

Documented in get.index

#' Internal function
#' 
#' @name get.index
#' @author Yusuke Matsui & Teppei Shimamura
#' @export

get.index <- function(edge){
  node <- unique(edge[,1])
  tips <- setdiff(as.vector(edge),node)
  root=rootFind(edge)
  node <- node[!node==root]
  res <- list(root = root,node=node,tips=tips)
  res
}
ymatts/phyC documentation built on May 4, 2019, 5:31 p.m.