# NOT RUN {
library(taxlist)
data(Easplist)
## Subset with family Ebenaceae and children
Ebenaceae <- subset(Easplist, charmatch("Ebenaceae", TaxonName))
Ebenaceae <- get_children(Easplist, Ebenaceae)
summary(Ebenaceae)
summary(Ebenaceae, "all", maxsum=100)
## Get parents of Diospyros tricolor
Diostri <- subset(Easplist, TaxonConceptID == 52403, slot="relations")
Diostri <- get_parents(Easplist, Diostri)
summary(Diostri)
summary(Diostri, "all")
# }
Run the code above in your browser using DataLab