# NOT RUN {
# 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