Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Get all site elevations for pollen records in the United States
library(neotoma)
all_ds <- get_dataset(datasettype = "pollen", gpid = "United States")
as_sites <- get_site(all_ds)
site_elevations <- as_sites$elev
# It's also within the datasets:
site_elevations <- sapply(all_ds, function(x)x$site.data$elev)
hist(site_elevations, breaks = seq(0, 4000, by = 100))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.