library(readxl)
pohja_keson <- read_excel("pohja_keson.xlsx")

pohja <- pohja_keson[,c("jrk","ID","kuupäev","koht",  "sugu","sünniaasta","sünnikoht"  ,"lat","lon"  , "emakeel"      ,"võõrkeeled", "märgendus")]

library(textgRid)

for (i in 1:nrow(pohja)){
  
  tg = TextGrid(paste0("POHJA_", pohja$jrk[i], "-", pohja$ID[i], ".TextGrid"))
  nsyl = length(which(!is.na(tg$silbid@labels)))
  start = tg$silbid@startTimes[min(which(!is.na(tg$silbid@labels)))]
  stop = tg$silbid@endTimes[max(which(!is.na(tg$silbid@labels)))]
  
  pohja$sprate[i] = nsyl/(stop-start)
  pohja$artrate[i] = nsyl/sum(tg$silbid@endTimes[!is.na(tg$silbid@labels)]-tg$silbid@startTimes[!is.na(tg$silbid@labels)])
}

pohja$vanus <- as.numeric(substr(pohja$kuupäev, 1,4))-pohja$sünniaasta
save(pohja, file = "pohja_konetempo_andmed.Rda")