# generate a random tree
Ntips = 50
tree = generate_random_tree(list(birth_rate_factor=0.1),
max_tips = Ntips,
tip_basename="tip.")$tree
# extract all tips within radius 50 from a focal tip
subtree = extract_tip_radius(tree,
focal_tip="tip.39",
radius=50)$subtree
Run the code above in your browser using DataLab