# What is the distribution of site elevations in Neotoma?
all.sites <- get_site() #takes a bit of time.
plot(density(all.sites$elev, from = 0, na.rm=TRUE),
main = 'Altitudinal Distribution of Neotoma Sites', xlab = 'Altitude (m)', log='x')
# Get site information from a dataset:
nw.datasets <- get_dataset(loc = c(-140, 50, -110, 65), datasettype='pollen',taxonname='Pinus*')
nw.sites <- get_site(nw.datasets)
Run the code above in your browser using DataLab