# NOT RUN {
taxon.table <- get_table('Taxa')
# Get the frequency of a random taxon in Neotoma.
tax_sample <- sample(nrow(taxon.table), 1)
cat("The taxon",
taxon.table$TaxonName[tax_sample],
"occurs in Neotoma",
length(get_dataset(taxonname = taxon.table$TaxonName[tax_sample])),
"times.")
# }
Run the code above in your browser using DataLab