## Just use GTS2020 (default):
# create exemplary dataframe
taxdf <- data.frame(name = c("A", "B", "C"),
early_interval = c("Maastrichtian", "Campanian", "Sinemurian"),
late_interval = c("Maastrichtian", "Campanian", "Bartonian"))
# assign stages and numerical ages
taxdf <- look_up(taxdf)
## Use exemplary int_key
# Get internal reef data
occdf <- reefs
# assign stages and numerical ages
occdf <- look_up(occdf,
early_interval = "interval",
late_interval = "interval",
int_key = interval_key)
## Use exemplary int_key and return unassigned
# Get internal tetrapod data
occdf <- tetrapods
# assign stages and numerical ages
occdf <- look_up(occdf, int_key = palaeoverse::interval_key)
# return unassigned intervals
unassigned <- look_up(occdf, int_key = palaeoverse::interval_key,
return_unassigned = TRUE)
## Use own key and GTS2012:
# create example data
occdf <- data.frame(
stage = c("any Permian", "first Permian stage",
"any Permian", "Roadian"))
# create example key
interval_key <- data.frame(
interval_name = c("any Permian", "first Permian stage"),
early_stage = c("Asselian", "Asselian"),
late_stage = c("Changhsingian", "Asselian"))
# assign stages and numerical ages:
occdf <- look_up(occdf,
early_interval = "stage", late_interval = "stage",
int_key = interval_key, assign_with_GTS = "GTS2012")
Run the code above in your browser using DataLab