library(tidyverse)
doksonaliigid=read_csv("http://www.tlu.ee/~jaagup/andmed/keel/korpus/doksonaliigid.txt")
dokmeta=read_csv("http://www.tlu.ee/~jaagup/andmed/keel/korpus/dokmeta.txt")
koos=dokmeta %>% inner_join(doksonaliigid, by=c("kood"="kood"))
d2=doksonaliigid %>% mutate(os=A/kokku, ms=D/kokku)

t.test(d2$os, d2$ms)
doksonaliigid %>% mutate(os=A/kokku, ms=D/kokku) %>%
  {t.test(.$os, .$ms)}

koos %>% group_by(keeletase) %>% summarise(kogus=n())

koos %>% filter(keeletase=="A2") %>% .$kokku
koos %>% filter(keeletase=="B2") %>% .$kokku

t.test(
  koos %>% filter(keeletase=="A2") %>% .$kokku,
  koos %>% filter(keeletase=="B2") %>% .$kokku
)