vok.s = emu.query("florian", "*", "phonetic != n")

# 2. Label-Vektor
vok.l = label(vok.s)

# 3. Formanten-Trackdatei
vok.fm = emu.track(vok.s, "fm")

# In Berk
vok.fmb = bark(vok.fm)

# Werte zum zeitlichen Mittelpunkt in Bark
vok.b = dcut(vok.fmb, 0.5, prop=T)

# F1 x F2 Abbildung in Bark
eplot(vok.b[,1:2], vok.l, dopoints=T, doellipse=F, form=T)
n = nchar(vok.l)
# gespannte Vokale sind T
temp = n == 2

# Zentroid gespannt
zen.g = apply(vok.b[temp,], 2, mean)
# Zentroid ungespannt
zen.u = apply(vok.b[!temp,], 2, mean)

efun <- function(a, b)
{
sqrt(sum((a - b)^2))
}

# Euklidsche Entfernungen:  gespannte Vokale zum Zentroiden 
e.g = apply(vok.b[temp,], 1, efun, zen.g)