R package to access and analyse Grambank's CLDF data
library(devtools)
install_github("SimonGreenhill/rcldf", dependencies = TRUE)
install_github("grambank/rgrambank", dependencies = TRUE)
Usage:
grambank <- load_grambank()
glottolog <- load_glottolog()
grambank$tables$LanguageTable
grambank$tables$ValueTable
df.wide <- as.grambank.wide(grambank$tables$ValueTable)
library(dplyr)
grambank <- load_grambank()
glottolog <- load_glottolog()
languages <- grambank$tables$LanguageTable %>%
left_join(glottolog$tables$LanguageTable)
head(languages)
grambank <- load_grambank()
theo <- make_theo_scores(grambank$tables$ValueTable, grambank$tables$ParameterTable)
head(theo)
library(dplyr)
library(rgrambank)
library(ggplot2)
grambank <- load_grambank()
glottolog <- load_glottolog()
languages <- glottolog$tables$LanguageTable %>%
right_join(theo, join_by(ID==Language_ID))
ggplot(languages, aes(x=Longitude, y=Latitude, color=Locus_of_Marking)) +
geom_point(alpha=0.6, size=0.7) + scale_color_viridis_b()
cor.test(languages$Latitude, languages$Locus_of_Marking) # hey, it's significant.