Simple paleo-data visualization in R, linking the `rioja`, `neotoma` and `dplyr` packages.

library("neotoma", "rioja", "dplyr")

site <- get_site(sitename = "Carp Lake") %>% get_download %>% compile_taxa("P25")

par(mar = c(5, 7, 2, 4)) inkspot(counts(site[[1]]), site[[1]]$sample.meta$age, x.axis = "gradient", cex.axis = 0.6)