rhyme = emu.query("lvn", "*", "[Phoneme!=x -> Phoneme!=x]")
rhyme.f0 = emu.track(rhyme, "F0")
# Mit Parabel glaetten
glatt = trapply(rhyme.f0, plafit, T)
# daraus eine Trackdatei bauen
glatt = buildtrack(glatt)

# Funktion um max zu finden
mfun <- function(daten, fun=max)
{
zeiten = tracktimes(daten)
temp = daten == fun(daten)
zeiten[temp]
}

# Zeiten vom Maximum
maxzeiten = trapply(glatt, mfun, simplify=T)

# exportieren
makelab(maxzeiten, utt(rhyme), "H:")



for(j in 1:5){
plot(glatt[j,])
abline(v=maxzeiten[j], col=2)
locator(1)
}

for(j in 1:5){

newt = rbind(rhyme.f0[j,], glatt[j,])
lab = c("rauh", "glatt")
dplot(newt, lab)
locator(1)
}