Removes all intermediate fossils from a combined tree and labels the first and last fossils of each lineage. Can be used with sampled or complete trees. If only one fossil is present for a particular species it is labelled as first.
Combined tree with fossils.
Tree with pruned fossils.
# simulate tree t = ape::rtree(6) # simulate fossils f = sim.fossils.poisson(rate = 2, tree = t) # transform format t2 = SAtree.from.fossils(t,f)$tree # prune fossils t4 = prune.fossils(t2) # or transform to sampled tree first t3 = sampled.tree.from.combined(t2) t4 = prune.fossils(t3) plot(t4)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.