## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup, eval=FALSE, echo=TRUE---------------------------------------------
#  library(FishPhyloMaker)
#  data("fish_SAmerica")

## ----taxondata, eval=FALSE, echo=TRUE-----------------------------------------
#  taxon_data <- FishTaxaMaker(data = fish_SAmerica)
#  Loricariidae
#  Siluriformes
#  Anostomidae
#  Characiformes
#  Anostomidae
#  Characiformes
#  Anostomidae
#  Characiformes
#  Serrasalmidae
#  Characiformes
#  Auchenipteridae
#  Siluriformes
#  Auchenipteridae
#  Siluriformes
#  Auchenipteridae
#  Siluriformes

## ----addFish, eval=FALSE, echo=TRUE-------------------------------------------
#  class_fish <- whichFishAdd(data = taxon_data)