Skip to content

Instantly share code, notes, and snippets.

@SimonGoring
Created October 19, 2016 19:46
Show Gist options
  • Save SimonGoring/6a2ba1d55a3a7f78723b37e896b55b70 to your computer and use it in GitHub Desktop.
Save SimonGoring/6a2ba1d55a3a7f78723b37e896b55b70 to your computer and use it in GitHub Desktop.
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