if (FALSE) {
taxIDs <- getTaxonID("Zamiaceae", "Ceratozamia")
distrib <- getDistribTaxa(taxIDs, "bio1", -90, 90, -90, 90,
continents = "Europe",
countries = c("Germany", "Netherlands", "Sweden"),
realms = "Palaearctic"
)
distrib
}
Run the code above in your browser using DataLab