## ---- 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"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.