if (FALSE) {
canidae <- pbdb_occurrences(
limit = "all", vocab = "pbdb",
base_name = "Canidae", show = "classext"
)
# Plot of the evolutionary rates
pbdb_orig_ext(
canidae,
rank = "genus",
orig_ext = 1,
temporal_extent = c(0, 10), res = 1
)
# Plot of the extinction rates
pbdb_orig_ext(
canidae,
rank = "genus",
orig_ext = 2,
temporal_extent = c(0, 10), res = 1
)
}
Run the code above in your browser using DataLab