## ----include=FALSE------------------------------------------------------------
library(lingtypology)

## -----------------------------------------------------------------------------
names(glottolog)

## -----------------------------------------------------------------------------
iso.lang("West Circassian")
lang.iso("ady")
lang.aff("Abkhaz-Adyge")

## -----------------------------------------------------------------------------
area.lang(c("Kabardian", "Aduge"))
lang <- c("Kabardian", "Russian")
aff.lang(lang)

## -----------------------------------------------------------------------------
iso.lang(lang.aff("Abkhaz-Adyge"))

## -----------------------------------------------------------------------------
aff.lang("Kabardian")

## -----------------------------------------------------------------------------
subc.lang("Lechitic")

## -----------------------------------------------------------------------------
library(ape)
plot(read.tree(text = subc.lang("Lechitic")))

## -----------------------------------------------------------------------------
plot(read.tree(text = subc.lang("Lechitic")),
     tip.color = c("red", "black", "black", "black"))