# NOT RUN {
canidae<- pbdb_occurrences (limit="all", vocab="pbdb",
base_name="Canidae", show=c("phylo", "ident"))
# plot of the evolutive rates.
pbdb_orig_ext (canidae, rank="genus", temporal_extent=c(0, 10),
res=1, orig_ext=1)
# plot of the extinction rates.
pbdb_orig_ext (canidae, rank="species", temporal_extent=c(0, 10),
res=1, orig_ext=2)
# }
Run the code above in your browser using DataLab