paleotree.R
In FossilSim: Simulation of Fossil and Taxonomy Data

## ----setup, include=FALSE, eval=TRUE------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
library(FossilSim)
if(!require(paleotree)) knitr::opts_chunk$set(eval = FALSE)

## -----------------------------------------------------------------------------
#  record = paleotree::simFossilRecord(p = 0.1, q = 0.1, r = 0.1, nruns = 1, nTotalTaxa = c(30,40),
#                                      nExtant = 0, nSamp = c(5,25))
#  
#  converted_record = paleotree.record.to.fossils(record = record)
#  converted_record

## -----------------------------------------------------------------------------
#  converted_record$tree$origin.time

## -----------------------------------------------------------------------------
#  t = ape::rtree(6)
#  f = sim.fossils.poisson(rate = 2, tree = t)
#  
#  converted_record = fossils.to.paleotree.record(fossils = f, tree = t)
#  converted_record