R/tools.R

Defines functions subset_tree subset_links

subset_links<-function(links,subset)
 match(
  links,
  (1:length(links))[subset],
 )[subset]

subset_tree<-function(tree,subset){
 st<-tree[subset,]
 st$prv<-subset_links(tree$prv,subset)
 st
}

Try the vistla package in your browser

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

vistla documentation built on Oct. 5, 2023, 5:08 p.m.