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

## ----eval=FALSE---------------------------------------------------------------
#  library(hybridogram)
#  
#  V1 <- c("Phoca largha","Phoca largha","Phoca caspica")
#  V2 <- c("Phoca vitulina","Phoca caspica","Pusa hispida")
#  V3 <- c(2,3,3)
#  hybrid_data <- data.frame(V1,V2,V3)
#  C1 <- c(1,2,3)
#  C2 <- c("No hybrid","Documented hybrid","Hybrid with same 3rd species")
#  codes <- data.frame(C1,C2)
#  hybridogram(hybrid_data, codes)